










Two sets of Fabulous Utilities 

in one! 

PROGRAMMERS TOOLKIT 
Gives extra commands: Auto, 
Number, Help, Delete, Change, 
Trace, Step, LightPen, Break etc. 


and 

MACHINE CODE MONITOR 
Gives Save, Memory Display, 
Load, Verify etc. 

Similar to TIM on PET. 


Examine the VICS ROM 
Needs DAMS RAM/ROM board or similar 


£19.95 wv 
VICMON 


THE ULTIMATE 
PROGRAMING AID 
FOR THE VIC 


Ful! machine code 

package with: 

Assembler, Dissassembler, 

Fill, Re-locate, Identify, Exchange, Compare, 
Printing, Dissassembler etc., etc. 

Needs DAMS RAM/ROM board or similar 


19.95 wv 








BUY THE 3K RAM ’N ROM BOARD WITH VICAID AND VICMON WITH 


vic 
LIGHT PEN 






DAMS PRICE 
ONLY 


£17 25 + VAT 


FOR PET 
12” SCREEN 


N 


£19.95... 


RAM ’N ROM 
BOARD 


3K RAM 

In Hires area. 

Also space for 
VICAID and 
VICMON 
programming aids. 


£22.95 


(Includes Cover) 


MACHINE CODE MANUAL (WORTH £5.00) FROM MOS TECHNOLOGY FOR ONLY 
£67.85 + VAT AND GET A FREE VIC LIGHT PEN (WORTH £17.35) 


ANTIGLARE 
SCREENS FOR PET 


40 Column 


£17.95 


80 Column 


£19.95 
ALL PRICES PLUS VAT VDU VIEW THRU 






ACCESS & 


BARCLAYCARD 
WELCOME 


VIC REFERENCE GUIDE R.R.P. £14.95 DAMS PRICE £14.50 





















VIC STARTER KIT 


VIC 20 

C2N Cassette Deck, 10 Blank Cassettes, 

User Manual, Vic Programmers Reference Guide, 
1 Joystick. 


Worth £238.30 ONLY £214.00 -var 


(VAT INCL. PRICE = £244.62) 


OR VIC 20 
With free 3K RAM pack or 


Super Cartridge Game ONLY @ 4 7 3 8 3 
- VAT 


DAMS BUSINESS COMPUTERS LTD. 


Gores Road, Kirkby Industrial Estate, Kirkby, Liverpool L33 7UA. 
Telephone: 051-548 7111 (20 lines) 
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/f you would like to contribute to 
Commodore Computing, please 
send articles or programs to: — 


Commodore Computing 
193 Wardour Street 
London WC2 


We will pay 10 pounds for each 
program printed, and 20 pounds 
for each article published, which 
should be approximately 1,000 
words long. 


To the best of our knowledge, there are some half a dozen 
specialist Commodore magazines around the world, five of which 
are written in the English language. Of these, two come from 
America, and are produced by the company themselves. 
Power/Play, a quarterly, is aimed very much at the Vic end of the 
market, and concentrates (as its name suggests) very heavily on the 
games side of Vic. 

Commodore The Microcomputer Magazine is a_ bi-monthly 
publication, covering the whole range of Commodore equipment, 
but to be quite frank the level of content over the entire magazine is 
quite low, with only a couple of articles worthy of serious technical 
consideration. 

The Australian magazine is again an in-house publication, which 
seems to rely very heavily on all the rest of the magazines for its 
actual content, although to be fair it does spread itself over the 
complete spectrum of Pets and Vics available. 

The fifth one, apart from ourselves of course, is a Canadian 
publication called The Transactor, recently taken over by Canadian 
Micro Distributors: it too used to be in-house. This one is to be taken 
very seriously, and has an extremely good technical content level. 
You may have seen some material from Transactor reproduced here 
and elsewhere. 

This brings me to the heart of the matter: reproduction of material 
from other Commodore magazines. | am not averse to doing this, 
because although we get issued magazines free of charge, the vast 
majority of you will not even be seeing them. As some of the 
material is so good, it is only fair to bring it to your attention. 

Obviously we will limit the amount of duplicated material, but 
where it’s of sufficient interest it is useful for as many people to see 
it as possible. People keep re-inventing the wheel: there’s no reason 
for you to have to do so. ~ 
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Dear Sirs, 


It seems that there is a distinct 
lack of programs in certain 
areas as far as Commodore 
Pets are concerned. | wonder if 
you can assist further by 
recommending a good source of 
available software — for 
instructional learning purposes 
— games, and if possible 
technical applications in 
architecture/building. If you 
could assist me | would be very 
grateful. 


Yours faithfully 
J. Randall 
Woking 


Dear Mr. Randall, 

There are a number of 
suppliers of the kind of 
software you require. On the 
instructional learning side, 
probably your best bet would 
be a company called ESM, who 
produce a wide range of such 
software. They can be reached 
on 0945-63444. 

Games, well everyone's 
producing games at the 
moment. Two companies it 
would be worth calling are 
Audiogenic (0734-586334) 
and Supersoft (01-861 1166), 
both of whom produce a large 
number of games for the Pet. 

Technical Applications in 
architecture/building are 
obviously a different kettle of 
fish, but three companies to 
contact, all of which produce 
software in this area, are 
Claremont Controls 
(0669-21081), Computer and 
Design Services Ltd. 
(0202-697341) and the 
Technical Software Centre 
(0234-750102). 

We hope the above is of 
assistance to you. 


Dear Sirs, 


| am a newcomer to 
computing, having recently 
purchased a Vic 20. Any 
information on learning and 
reference books would be 
appreciated. 

Thanking you in anticipation. 


Yours faithfully 
Mrs. Bunney 
Fareham 


Dear Mrs. Bunney, 

The Vic 20 ‘suffers’ from an 
almost overwhelming number of 
books and instructional aids at 
present, some of them good, 
some of them dreadful. 
Surprisingly, in view of their 
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track record in this area, a 
couple of the best items about 
at the moment come from 
Commodore. Their book the Vic 
Programmers Reference guide 
deserves an investigation, as it 
covers an awful lot of ground 
from assuming no prior 
knowledge of the machine. 

On the software front, and 
aimed more at the beginner, is 
An Introduction To Basic part 1, 
with the promise of part 2 to 
come sometime. This consists 
of a cassette and a voluminous 
manual, which is extremely well 
written. Both of these should be 
available from any Commodore 
dealer. 

On a more general front, you 
could do worse than go into 
your local W.H. Smiths and 
have a browse in their 
computer books section. They 
sell quite a few now, and one 
of them should attract your 
attention. 


Dear Sirs, 


Please find enclosed 
remittance for 12.50 pounds, 
for one years subscription to 
Commodore Computing. 

If you have run an article 
previously on how to assign the 
function keys on the Vic 20, 
could you please forward a 
copy of that article if possible. 


Thanking You 
Thomas Gallivan 
Tralee 


Dear Thomas, 

Thanks for the cheque: 
magazines will be winging their 
way to you! 

We haven't published an 
article on assigning function 
keys, but here goes. 

Basically, there is not a lot 
that can be done on the 
standard Vic. Before serious 
assignment can start taking 
place you’re going to need 
something like the Super 
Expander or another analogous 
cartridge. However, we can 
detect which one is being 
pressed, and by seeing if the 
Commodore logo key or the 
shift key is pressed as well, we 
have a number of different 
options available to us. 

Memory location 203 returns 
a certain value if the shift key is 
placed, and location 653 has 
the following values: — O if shift 
not pressed, 1 if pressed, 2 if 
the logo key is pressed, and 3 if 
both the shift and the logo key 
are pressed. 


The following program will 
tell you which key is pressed. 


10 A=PEEK (203) 

15 B=PEEK (653) 

20 K=O 

25 IF A=39 THEN 
K=1:GOTO 50 

30 IF A=47 THEN 
K=3:GOTO 50 

35 IF A=55 THEN 
K=5:GOTO 50 

40 IF A=63 THEN 
K=7:GOTO 50 

45 GOTO 10 

50 IFB- 1 THEN B=O 
55 K=K+B 

60 PRINT “FUNCTION KEY” 
ngik; (PAESOED 

65 GOTO 10 


Dear Sirs, 


| have two 32K Pets series 
2000 and 3000, interfaced to 
Centronics 701 and 703 
printers respectively, the former 
at home for programming 
purposes — my interest being 
exclusively business. 

All my programmes are stand 
alone, being cassette based, 
which can be a nuisance at 
times, where for instance a 
debtor changes his address. 
With backup tapes this can take 
an hour or more to save and 
verify. 

| have held my hand as to 
discs — especially as 
Commodore don’t enjoy a good 
reputation in some quarters 
here — for | want to be able to 
access any part at random 
within five seconds at most. 

Can you advise on hard 
disks? 

Yours faithfully 


William Nesbitt 
Foxrock 


Dear Mr. Nesbitt, 

! can quite understand you 
desire to become disk-based: 
when you eventually take the 
plunge you'll wonder how you 
ever managed without! 

! don’t really share your 
concern over the Commodore 
disk drives: I’ve been using an 
8050 for a long time now, and 
no discernable problems have 
arisen as yet. You say you 
require an access time of ‘at 
most’ five seconds. Bearing in 
mind that this is the average 
delay time for a CLOSE and 
OPEN file loop, you should be 
able to get at any record in less 
than a second. 

The major hard disk unit on 


tters— 


the market at present comes 
from Mator Systems Ltd. They 
do a 22 Megabyte unit, at 
3,695 pounds, a 30 megabyte 
unit at 4,095 pounds, and a 
tape backup system (which 
takes approximately 45 minutes 
to backup a 22 meg. system) at 
1,895 pounds. 

Personally, | feel an 8050 
would be adequate for your 
purposes, but if you want to 
contact Mator, their number is 
0273-720451. 


Dear Sirs, 


Please could you advise on 
whether there is a simple way 
of preventing a program on a 
PET 4032 from being listed or 
amended by the operator. 

We have an application at 
work where this is necessary. 
With a CP/M based machine the 
instruction ‘SAVE. . .P’’ will 
prevent the program from being 
listed when loaded. 


Yours faithfully 
Alan Mason 
Leicester 


Dear Alan, 

Unfortunately there is no 
simple way to prevent a 
program being listed or 
amended. Any method that you 
try and implement can usually 
be got around very easily, so 
we can’t really come up with an 
answer. If any readers have any 
bright ideas, we'd be delighted 
to hear from you. 

Meanwhile, two suggestions 
to be going on with. One is to 
buy Raeto West’s Programming 
the Pet/CBM, which has a 
couple of pages devoted to 
discussions on a Basic 
command which he calls 
UNLIST: this performs precisely 
the function you're interested 
in, were it possible to perform 
the command satisfactorily. 

The other is to buy one of the 
number of compilers around at 
the moment, and present your 
operator with a compiled 
version of the program. This, 
when listed, will simply display 
one line number with one SYS 
call: unlistable and unalterable. 


New Product News 


So many companies are producing books on 
the Pet and/or Vic these days that it’s almost im- 
possible to know where to start. Still, there are a 
number of major distributors who have made new 
contributions lately, so perhaps we can point you 
in the right direction with those. 


John Wiley and Sons Ltd. 

Their latest catalogue covers a whole host of 
general books on computing, but have quite a col- 
lection of specific Commodore interest. Again, 
these are mainly introductory guides to program- 
ming in Basic, but many other sections are 
covered as well. 

They have also a large selection of software 
items as well, including a version of the famous 
Sargon chess program, a guide to general 
mathematics, a book on Pet-aided design of ac- 
tive filters, and so on. Worth checking out, and 
they can be reached on 0243-784531. 


Osborne/McGraw-Hill 

They are in really the same position as John 
Wiley, in that they have an awful lot of books on 
general computing topics, and a variety of 
specifics. Worthy of mention is the Hands-on- 
Basic with a Pet, an introduction to Basic pro- 
gramming on the Pet (and hence the Vic as well), 
which is a very well put-together book, and ex- 
tremely useful for the beginner to programming. 

Amongst the others is a Fun and Games book, a 
collection of programs previously published (or 
should | say taped) by the well-known cassette 
magazine Cursor. It makes a change from the 
usual run of the mill games book in that all the pro- 
grams are superbly legible (and what’s more they 
work!). We take a more detailed look at this one in 
our book reviews section this month. 

Many others are done by Osborne/McGraw- 
Hill. Possibly the best one is the Pet/CBM Per- 
sonal Computer Guide, written by Adam Osborne 
with Carroll Donahue. For a while Commodore 
themselves where shipping out this book with 
every Pet delivered, so highly did they think of it. 
A very comprehensive guide for the newcomer to 
the Pet, convering all the major peripherals on the 
way. 

Further information on Osborne/McGraw-Hill 
can be obtained by ringing 0628-23431. 


Prentice-Hall and Gower Press 

These last two companies are similar to our first 
two, in that amongst the general plethora of 
books they publish, there are a number devoted 
to the Pet and/or Vic. Both are worth giving a ring: 
Prentice-Hall are on 0442-58531, and Gower are 





on 0252-331551. 


Other Suppliers 

Of course, these are not the only book 
publishers currently producing books on the Com- 
modore range of equipment. If any of you others 
are out there, drop the editor a line, and we'll take 
it from there. 


Prestel 

A lot has been written in the computer press 
and elsewhere about the rapidly expanding world 
of Prestel, unfortunately usually accompanied by 
the rapidly expanding cost of Prestel. A company 
down in Bristol (Avon Office Services, on 
0272-502008) have now produced a low-cost 
adaptor for any television and microcomputer, 
which brings access to Prestel that much easier 
and cheaper. 

Known as Tandata, this product will interface 
to the Pet, allowing it to store, review and pro- 
cess Prestel and other viewdata pages on and off- 
line. Plus, of course, you also have access to the 
standard Prestel character set, giving you an 
80 x 24 display, 8 colour display, with (amongst 
other wonders) double height graphic characters. 


INSTALLATION SERVICE 


Experience is often very valuable when installing 
your new Commodore System. Mistakes are 
frequently very costly and waste valuable time. 


ONE DAY SERVICE 

For a fee of £85 per day plus expenses a member 
of staff will help you overcome early difficulties and 
set you on a Suitable path to a_ successful 
computerisation. 


FULL INSTALLATION SERVICE 

This is tailored to your requirements. We can supply 
extra operations staff, or technical advisors. Extra 
equipment can be useful if an installation is required 
by a certain date. As full Commodore Systems 
Distributors we have experience you will probably 


need. 


MAINTENANCE 

Most of the system breakdowns are not hardware 
faults, but consist of lack of understanding of 
programs or faults based upon unwise practices. 
Our staff are trained to assist with system problems, 
and they are capable of finding the best possible 
solutions. Maintenance staff will visit your site, 
diagnose your difficulty and if necessary replace 
any components needed. 


For information concerning this service please 
contact Brian Homewood or Robert Jones. 


PEACH DATA SERVICES LTD. 


COMPUTER SERVICE TO BUSINESS 


5 HORNINGLOW STREET, BURTON-ON-TRENT, STAFFS. BURTON (0283) 44968 





Commodore Computing 5 


New Product News 


The unit comes complete with all the necessary 
gumph to connect it up, but British Telecom 
make their presence felt making it essential that 
you contact them for installation of a Prestel jack 
socket. 


Very Important Products 

A team of people down in the new ‘area to be 
in’ Milton Keynes, have come up with a tremen- 
dous graphics display system, which like the 
aforementioned Prestel adaptor will work with 
any microcomputer currently available, although 
of course our interest centres on the Pet. 

Known as Micro Design (although they like to 
call themselves The Solution People), the VIP 
system connects your microcomputer up to a 
television set, to give you a resolution display 
area of 512 by 512 pixels. On screen at any time 
you can have up to 15 colours selected from a 
‘palette’ of 4,096 different colours (bet you 
didn’t even know there were than many!). 

Using the Picaso software package, you have 
ready access to over 500 subroutines for ex- 
tremely powerful and fast 2 or 3 dimensional pic- 
ture manipulation. The accompanying illustra- 
tions should give you some idea of the capabilities 
given to you: I’m only sorry they’re just in black 
and white. 

Some of the Picasso commands are very in- 
teresting. For example, ‘Explod’, which displays 
the individual elements of a picture gradually 
moving apart. There are also a large number of 
rotational algorithm provided as well, turning your 
Pet into a picture-based word processor of 
tremendous power. 

Already at home in a number of scientific and 
industrial area, VIP is quite a revolution in terms of 
graphics capabilities. The cost of VIP itself is 
around 2,900 pounds, and by the time you've 
done all the IEEE interfacing and all the other con- 
necting up necessary, the complete system 
should still cost you well under 10,000 pounds. 
For further details contact O908 663655. 


Like Blood to a Vampire 

3D Digital Design and Development have 
developed a combined hardware and software 
package to help make routine blood analysis a lot 
easier. 

Using the tried and trusted Coulter Blood 
Analyser linked up to a Pet, the system handles all 
the administration, label writing, result and 
statistical checking necessary in work of this sort. 

Along with the relatively low-cost Commodore 
dot matrix printer, the whole system is very good 
value for all the tedium it takes out of this normal- 
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ly boring task. If you’re interested, your contact is 
Dr. Mills, on 01-387 7388. 


Flexirom 

As we all know, all that RAM in your Pet or Vic 
is lost when the machine is powered off. Even the 
usual alternative EPROMs, which can quite happi- 
ly maintain all the information when turned off, 
require erasing and re-programming by a (usually) 
expensive Eprom programmer, even if just one 
byte is being modified. So, Clever Computer Con- 
trols (who thinks of these names?) have come up 
with the answer. 

Calling their system Flexirom, it is essentially 
programmed like normal RAM, but can be switch- 
ed to ROM mode so as to retain data when the 
power is removed. It uses a 4K CMOS RAM 
board, complete with Ni-Cad battery, and is sup- 
plied with a 24 way DIP to DIP ribbon cable which 
connects into any of the usual spare sockets in 
the internals of your machine. 

A simple ‘at a stroke’ operation converts all 
your coded RAM into ROM, and this ROM can be 
subsequently very easily altered without having 
to resort to the old Eprom programmer. At only 
39.50 pounds, this is a veritable bargain. 

For more information ring 022 770 644. 








From Floppy to Hard 

Mator Systems Ltd. (0273-720451) have just 
released an advanced version of their hard disk 
unit for the Pet. The Shark, as it’s known, has a 
specially developed ‘Chichester’ controller, enabl- 
ing access of the high storage capacities of Win- 
chester disks. Using hard disks, Mator now have 
a 22 megabyte and a 30 megabyte disk system 
available. 

It operates as far as the Pet is concerned as a 
‘souped-up’ 8050, using all the usual commands. 
Thus, programs written for the 8050 will work on 
these new drives, provided all the relevant data is 
copied over of course. 

Unlike the earlier Commodore disk units, you do 
not require extra add-ons to work in a multi- 
station environment: they can be simply chained 
together. 

Also available from Mator is a backup system 
for the hard disk, known as the Sharkive. This is a 
tape streaming device, incorporating 300XL and 
600A quarter inch removable magnetic tape car- 
tridges. Connecting directly up to the Shark drive, 
a backup of a full 22 megabyte disk takes approx- 
imately 45 minutes, including full read-write 
checking. 

Pricing starts at 1,895 for the backup unit, 
3,695 for the 22 meg. device and 4,095 for the 
30 meg. one. 

Compared to the price of the existing Com- 
modore 1 megabyte disk unit, these prices are 
relatively low, and deserve looking into by anyone 
with a serious computing requirement. 


Testing Technology 
Usually the most testing technology comes 


from reading all the blurb that is sent in as press 
releases, but at least Engineering Laboratory 
Equipment Ltd. (0442-50221) have some useful 
and interesting products to announce. All to do 
with monitoring scientific and engineering equip- 
ment, the heart of the matter is something called 
Dataface System 3, which links the Pet to the 
outside world in a ‘unique’ manner. 

Space forbids me expanding on this one, but if 
you're interested | would certainly give them a 
call for further information. They also have a 
range of programs available to consolidate the 
Dataface: direct shearing, transducer calibration 
are just two of the ones available. 


Superscript 

We mentioned in last months Club News sec- 
tion, the story concerning Superscript, the £35 
Wordprocessor from ICPUG. At the time there 
was a court case pending, which meant that tem- 
porarily Superscript was taken off the market. 

However, all appears now to have been resolv- 
ed and the company called Precision Software are 
now marketing the product in the U.K. A Mr 
Turner, on 01-330 7166, has all the details. At 
present they are talking about a selling price of 
around £240: if you read the Club News section 
last month you will know what my opinion of this 
is! 

It is interesting to note that Commodore have 
taken on the rights for Superscript for all of their 
new machines (Commodore 64, etc.), | wonder 
what difference colour and sound will make to a 
Wordprocessor! 

Next month we will be bringing you a detailed 
review of this package. 
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Club News 


Of all the independent user groups around the 
country, the one which enjoys the most privileged 
position is possibly the Berkshire group, based at 
Slough College of Higher Education. After all, 
Commodore Business Machines is situated only 
just around the corner, and in an industry were 
good working relationships are important, it’s 
quite nice to know that the company you are in 
many ways dependant on can be visited at a 
moments notice. 

Brian Jones is the man in charge of affairs there 
at present, and any further information you re- 
quire can be gleaned by either writing to him at 
the Department of Maths and Computing, Slough 
College of Higher Education, Wellington Street, 
Slough, Berkshire, or giving him a ring on Slough 
(STD Code 0753) 34585 extension 81. 


Locale Served 

As you might ascertain from the name of the 
group, they cover the whole of the Berkshire area. 
One wonders if the future King of England ever 
pops in to visit them on user nights? After all, 
Buckingham Palace does possess at least one 
Commodore system! 

So basically, anyone who is in and around the 
Slough area is more than welcome to come along 
to the meetings, details of which can be gleaned 
from Brian on the aforementioned number. For 
that matter, one assumes that they wouldn't be 
too offended if people came from further afield as 
well. 


Potted History 

The group was the first new one to be founded 
after the Vic was beginning to get off the ground 
in this country, and thus they have a fair sprinkl- 
ing of Vic users in the group. An estimate puts the 
figure at around 25%-30%, although interesting- 
ly enough it’s probably nearer to a 50/50 split on 
actual club nights. 

There are no plans at present to form a separate 
Vic users group, as the interests of all seem to be 
well enough served as the set-up stands at the 
moment. Long term of course this may well 
change, as Vic and its derivatives become more 
and more well established, but we can only wait 
and see. 

Meetings of the group are generally held on a 
monthly basis during term times: outside of this, 
there are not meetings going on. The location is 
usually the college itself, although they have 
spread their wings as far afield as their sister col- 
lege at Langley, Crane Packing on the Slough 
Trading Estate, and are currently looking for a 
more permanent meeting place. We'll keep you 
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updated on the position here. 


Club Nights 

Their meetings follow the usual run of things, 
but with being so close to Commodore they do 
tend to have the special surprise guest ap- 
pearance. For instance, at their last meeting of 
the summer term, as well as the traditional club 
‘questions, answers, news and views’ session, a 
couple of the college’s own students currently on 
release work at Commodore came in to 
demonstrate Simplicalc and VicWriter. 

As well as those, Martin Maynard of 
Audiogenic popped in to give a talk on marketing 
and distributing software in this country, and 
some of the problems involved (not surprising, in 
view of his recent encounters with Arfon). Also, 
they were treated to a demonstration of 
PetSpeed, the basic compiler that’s causing so 
much fuss at the moment. 

Recently, John Collins of Commodore came 
along to chat about the new machines coming up 
later this year and early next, and other people 
from the company have come along from time to 
time as well. 

This ‘privileged position’ was shown well a 
couple of months ago when, just after the Pet 
Show, they were able to borrow a copy of the 
promotional video Commodore were using to 
show off the new equipment, so that all the peo- 
ple who couldn’t get to the Show, or who missed 
it when they were there, had a chance to at least 
see the machines. 


Other Activities 

Aside from user group activities, the college 
also gets involved in other projects as well. Held 
at the college recently was the South East Study 
Group for Teachers in Further Education, which 
featured a number of demonstrations on Com- 
modore equipment. 

So, an active group based down in Slough, who 
are doing a lot of good work on behalf of Com- 
modore, and who are providing a valuable service 
for both newcomers and old hands at the personal 
computing game. 

If you'd like your club featured in a future issue 
of Commodore computing, please get in touch 
with the editor of the magazine. 





MICROSCRIPT 


Word processing 
made simple! 


YOU DON’T HAVE TO BE A WIZARD TO USE MICROSCRIPT 


rjaht 
IFFER FROM 


Whether you’re a secretary, businessman, author, 
or journalist — MicroScript can help you. From a 
single page letter to volume mailings, from one 
page reviews to complete books — MicroScript 
is simple to use yet rich in facilities. 


MicroScript has the largest text memory capacity 
of any word processor for the Commodore 8000 
series computers — even though it’s probably the 
longest program ever written for the 8032 and 
8096. Sounds incredible doesn’t it? 


Here’s how we do it: MicroScript is the first in a 





TYPEWRITER2¢ 


PT automatically 
; r the end of a 
word | am typing ; 
the whole word down to the start of 


ied to an S8-column line length. I can 
at the moment it’s 78 characters but if 
‘control word’ at the top of my text !+ 


new generation of business software, supplied not 
on a floppy disk but burned into banks of micro- 
chips. What this means is that instead of using the 
memory that’s already there, MicroScript adds 46k 
of ROM and 2k of RAM to your computer. It even 
doubles the ROM expansion capability. 


What does all this mean for you, the user? It means 
that you’re investing in the latest technology. It 
means that you’re buying the Rolls-Royce of word 
processors. Most of all it means that you're 
investing a little money to save a lot of time. 
Simple, isn’t it! 


MICROSCRIPT IS AVAILABLE FROM YOUR COMMODORE DEALER 
© Viza Software 1982 


Distributed by SUPERSOFT, Winchester House, Canning Road, Harrow, England 
Telephone: 01-861 1166 (3 lines) 
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Education 


Educational Workshops 


Last month we gave a rundown on just some of 
the suppliers of educational software and 
hardware add-ons for both the Pet and Vic range 
of computers. However, there is another way of 
receiving software material, and moreover a way 
that is free of charge. This can be done by joining 
Commodore’s Educational Workshop scheme. 

For those of you who are not familiar with the 
inner workings of the scheme, this month we’ll 
take a look at how it works, what precisely it 
does, and most importantly how you can go 
about joining it. 


What is a Workshop 

Basically an educational workshop, as defined 
by Commodore, is any educational 
establishment, be it a school, college, university 
or whatever, that either owns or has access to 
any number of Pets and/or Vics, and is prepared 
to assist others in the school or outside of it. 
Quite what form that assistance takes is up to the 
individual place concerned, but most commonly 
places will have open nights, or more formal 
training sessions, whereby newcomers to the 
microcomputing arena can see the kind of work 
that’s being done, and how they could benefit as 
well. 

So, if you belong to an _ educational 
establishment, and are prepared to assist others 
in this kind of manner, you're part of the way 
there. 

However, there’s more to being an educational 
workshop than just helping out other people. 


Public Domain Software 

Commodore have put an awful lot of software 
into the public domain i.e. people can make a 
copy of the disk (or tape) without fear of 
infringing manufacturers copyright, and then pass 
that copy onto others who might benefit from its 
use. 

Where does this software come from? Much of 
it of late has been arriving from schools and 
colleges in Canada, and making its way via 
various devious routes into this country and the 
hands of Nick Green at Commodore. Quite why 
so much should come from there is a mystery, but 
nonetheless it arrives here. 

Needless to say there are contributions from 
other sources as well, and the U.K. is by no 
means least in the list of suppliers of such 
material. Many of the programs will have already 
been used in an _ educational environment, 


1 O Commodore Computing 





although probably an equally large number will 
simply be demonstration or half finished programs 
that never saw the light of day. 


Perfect Software? 

Now Commodore themselves are the first to 
admit that this software is far from perfect. This 
is not the point: the point is that this software 
exists, and whether you use it as is, or more 
usually modify it for your own uses, it will save 
many an invaluable hour in the planning and 
development stage of educational programming. 

This is one of the major benefits of being in the 
scheme. Commodore distribute all this software 
free of charge, and you can then make as many 
copies as you like for your own internal use. Thus 
you will be receiving literally hundreds of 
programs at no cost to you: an important factor 
where traditionally cost-conscious schools are 
concerned. 


What the Scheme Does 

Essentially the above: to assist in helping 
others, and to promote and distribute public 
domain software. There have been in the past, 
and no doubt will be again in the future, a number 
of special offers to establishments in the scheme. 
Discount on software buying, or hardware 
buying, are just two examples that spring to 
mind. 


How do | join 

There are no hard and fast rules about how a 
college or school goes about becoming a member. 
The number of Pets and/or Vics owned by 
existing members can and does range from one to 
over fifty, so number of machines is clearly not a 
premium. Similarly, not everyone can, or has the 
facilities to, offer help and advice to outsiders. 

Consequently the final decision must rest with 
Commodore themselves. Clearly if you have a 
few computers, and can give assistance to 
others, it will be of help in the final evaluation, but 
none of this is of necessity a pre-requisite. 

Although the man in charge of Commodore in 
education is Nick Green, your initial contact at the 
company should be with Jean Frost, at the 
traditional address of 675 Ajax Avenue, Trading 
Estate, Slough, Berkshire. Write and tell her that 
you're interested in the scheme, and require 
further details, and all the necessary information 
will be sent off to you. 

If you join, it will cost you nothing, and I’m sure 
you will not regret the decision. 

More on the world of computers and education 
next month. 
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PET HARD DISKS 


The Small Systems HARDBOX acts as an intelligent 
controller for up to Corvus Winchester drives. 

@ PET DOS 1 and 2 compatibility 

@ Multi user capability on Corvus Drives 

@ 16 Megabyte max file size 

@ 65535 max records per relative file 

@ Over 2000 files on 5 MB drive 


PET MINI-WINI 


The MW-1000 Mini-Winchester is a compact desk-top 

unit that just plugs into the PET - gives you up to 12 

Mb of hard disk storage under CP/M or PET DOS or 

both!! 

At the flick of a switch, this amazing unit allows you to 

have:- 

@ The whole disk under CP/M (plus 60K of RAM and 
Z80) 

@ The whole disk under PET DOS 

@ Half of the disk under PET DOS and half under 
CP/M!! 

No changes to the PET or ROMS are required — just 

plug in and go. 


Prices include CP/M Utilities, (0K RAM and Z80. 


PET CP/M 


SOFTBOX and CP/M SOFTWARE 


SOFTBOxX allows the PET to run the worlds most 
popular operating system for micros. Operates with 
PET floppies and/or a Hard disk system. 


Comprehensive range of CP/M software available -— 
ask for our Catalogue. 


Softbox (with RS232 + Hard disk interfaces as 
standard) 


IEEE-488 


lEEE-488 SERIAL INTERFACE 


40 char input buffer 


lEEE-488 ADDRESSABLE PARALLEL INTERFACE 
TYPE A100 


TYPE G.P.1. AP MICROPROCESSOR BASED 
IEEE-488 BI DIRECTIONAL INTERFACE 
IK input buffer standard 59K max. 


TV/VIDEO MONITOR INTERFACES 


RS 232C TO 20mA CURRENT LOOP 
ADAPTER. 


PETSPEED 


Optimising Basic Compiler 


DEVELOPMENT TOOLS 
$10 /CP/M 

8048 family in circuit emulator 

8748 programmer. 

Prom emulator 

Range of cross assemblers for most popular 


ve: 328 7145 Telex 264538 


“Give me 
one good conoid 
why I should buy 


aVIC 20 home computer” 


Come in. 


Well give you 








Wego Computers Ltd. 
22a, High Street, 
Caterham, Surrey CR3 5UA 


Tel: Caterham (0883) 49235 
Telex: 8813791 DSW-G. 


Authorised Dealer 
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This book is excellent.’ 


- Jim Strasma 


‘Unquestionably the most accurate 
and comprehensive reference I have seen to date.’ 
- Jim Butterfield 


Bestseller — comprehensive Many programs, charts and diagrams. 


teaching and reference book on _!7 chapters, appendices, and index. 

iv + 504 pages, 19 x 26 x 24%cm. 
all software aspects of Paperback, ISBN 0 9507650 07 
Commodores 2000, 3000, Price in UK and Europe £14.90 each 

(incl. post and heavy-duty packing). 
4000 and 8000 Five or more books at £12.90 each. 
microcomputers and Soft plastic covers 45p each. 
peripherals. Dealer enquiries invited. 

LEVEL LTD., PO Box 438, Hampstead, 

London NW3 1BH. Tel: 01-794-9848. 


Cut out or copy coupon, or write to: 

LEVEL LTD. (CC), PO Box 438, Hampstead, London NW3 1BH. 
Send copy/ies of Programming the PET/CBM at £14.90 (post free) 
| enclose cheque/P.O. for £. ...or Official order. 

ADDRESS . 


Fast Service — same day despatch 
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Languages 
COMAL Part Three 


Over the last couple of months we've 
presented two articles by Brian Grainger, on the 
use and implementation of Comal for the 
Commodore range of micros. No-one has yet 
done a Vic version, and to be honest | can’t see 
any point in anyone producing such a version. 
Twenty two columns are not ideal for showing a 
structured language at its best. Still, you never 
know. This month, John Collins of Commodore’s 
Technical department, fills us in on a few more 
facts and figures. 

First of all, some basic (sorry!) information 
about the language Comal 80. Last Spring 
Commodore placed an implementation for its 
hardware (4032 and 8032) in the public domain 
throughout the world. The language was 
originally developed, principally by Borge 
Christensen, at the Danish State Teacher Training 
College in the mid-seventies. The name comes 
from COMmon Algorithmic language. 

The intention was to combine the simplicity of 
Basic with the algorithmic structure of Pascal: 
initially Basic was kept as a subset of Comal. In 
1980 a working group defined an improved 
version, Comal 80, which no longer maintains 
Basic as a subset. It is now the first language 
taught to all Danish schoolchildren, and is the 
ideal first language for use in secondary education 
and at the top of primary education. 


Commodore Version 

Commodore’s Comal 80 v.00.11 includes the 
full Comal nucleus as defined by the working 
group, plus some of the recommended 
extensions. The disk contains both a unified 
version, allowing only 4.75K for a Comal 
program, and a split version, allowing 15K. It is 
this version which has been distributed (on a 
4040 disk and with a single version of a brief 
manual) to all of the Commodore educational 
workshops that had been appointed at the time. 

Anyone can take a disk along to a meeting of 
their local workshop (details from Jean Frost on 
Slough 74111) and copy the Comal disk. 
Arrangements for obtaining a copy of the manual 
vary from workshop to workshop, but do 
remember that photocopying is seldom free. As 
there is one file on the disk which is 106 blocks 
long, the utility program supplies with your disk 
unit ‘Copy 2040-8050’ cannot be used to 
transfer Comal onto an 8050 disk: Jim 
Butterfield’s ‘Copy/All’ (available through most 
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regional ICPUG groups) has to be used instead. 


New Enhancements 

Brian Grainger, author of our last two articles, 
has modified Comal to work with cassettes, and 
also to work on the 3032. This version is 
available through the Independent Commodore 
Products Users Group. ICPUG members 
(subscription 7.50 pounds per annum to Jack 
Cohen, ICPUG Membership secretary, 30 
Branchester Road, Newbury Park, Ilford, Essex, 
1G2 7EP) can obtain it by sending a blank disk or 
cassette (as required) together with payment for 
return postage to Bob Wood, ICPUG Software 
Librarian, 13 Bowland Crescent, Ward Green, 
Barnsley, South Yorkshire, S70 5JP. 

JKL software in Denmark have enhanced 
Commodore’s Comal 80 to rev. 1.01 which 
includes all the recommended extensions, and 
has been described by Borge Christensen as far 
and away the best implementation of Comal on 
any machine. A soft-loaded version for the 8096 
is in the public domain worldwide: it comes on an 
8050 disk, and allows 38K for a Comal program. 

Copies can be obtained by sending a blank disk 
with payment for return postage to the Comal 
User Group, c/o North London Hobby Computer 
Club, Polytechnic of North London, Holloway 
Road, London N7 8DB. 

To use this extended Comal in any model other 
than the 8096 an add-in hardware board is 
required. This works with any Pet from the 8K 
2001 (but with new ROMs) up to the 8032, 
enabling the Pet to power up into Comal (but with 
Basic still available). Further details are available 
from Instrutek A/S, Christiansholsgade, DK-8700 
Horsens, Denmark (tel. 010 45 5 61 11 OO). 

End user price of this board is 495 dollars: 
contact Instrutek for U.K. pricing, and a 1-off 
dealer discount of 15%. They also have available 
an extension board providing high resolution 
graphics (512 by 256 pixels) from within Comal. 
The price of this is a further 495 dollars. 


Documentation 

Commodore’s original Comal manual is 
available by taking a copy via a_ software 
workshop. A new version including the 
extensions now exists, but it is only being issued 
to workshops in response to specific requests 
since Len Lindsay, founder of the USA Comal 
User Group, has written what will surely be the 
standard Comal manual, published by Reston (a 
subsidiary of Prentice-Hall International) and 
distributed via U.K. bookshops. 

As well as this there are a number of books on 


Comal which are now making their appearance. 

The first of these is Structured Programming 
with Comal, by Roy Atherton, which we took a 
look at last month: it costs 6.90 pounds in 
paperback, from Ellis Horwood Ltd. Borge 
Christensen’s own Comal Tutorial book (10 
pounds in hardback) is now also available from 
Ellis Horwood Ltd. 

Another little number which would be worth 
investigating by anyone remotely interested in 
Comal is the Comal Bulletin. It boasts an 
impressive editorial line-up, starting with Roy 
Atherton as senior editor, and amongst the 
consultant editors are Borge Christensen, John 
Collins (had to give you a plug John!), Len 
Lindsay, et al. Articles have and will include The 
World of Comal, The History of Programming 
Languages, Keeping Control of Long Programs, 
Comal Standards, Comal Structures, and many 
more. 

Subscription to this bi-monthly publication is 
10 pounds in the U.K., and 13.50 pounds 
overseas, and it is again available from Ellis- 
Horwood Ltd., at Market Cross House, Cooper 
Street, Chichester, West Sussex, PO19 1EB. 


COMMODORE PET 
COLOUR GRAPHICS 
PROCESSOR 


640 (H) 288 (Y) x 3 planes 

8 colours, double-buffered screen 

16 bits microprocessor (intel 8088) 

192 kbytes of dual-ported display memory 
standard graphic functions 

program in PET Basic 


14in. COLOUR MONITOR 


@® high resolution 
@ RPG inputs 


AVAILABLE NOW 


Colour Graphics Processor: £599+VAT 


High Resolution 14in Colour Monitor: 
£620+ VAT 


Enquiries and Demonstration invited 
CAPITAL COMPUTER SYSTEMS 
32 Windmill Street (Off Tottenham Ct. Road) 
London W1P 1HH 
01-636 3863 (3 lines) 





User Groups 

As well as Len Lindsay’s group in the States, 
details of which appear in his quarter page 
advertisement in every issue of Commodore 
Computing, there is now a UK Comal User Group. 
They meet from 7 to 9 pm on the first and third 
Wednesday of each month (but during 
Polytechnic term time only) in_ Islington 
Community Computer Centre at the Polytechnic 
of North London. 

Anyone with queries on Comal is quite 
welcome to contact the Polytechnic, by writing 
to:— 

Barry Miles, 

Comal User Group, 

c/o North Longon Hobby Computer Club 
Polytechnic of North London 

Holloway Road 

London N7 8DB 

We'll be back next month with more news on 
views. lf there’s any particular aspect of Comal 
you'd like to see attacked here, please get in 
touch with the editor, and we’ll see what can be 
done. 


PINEWOOD COMPUTERS 
announce 
the launch of 
the 64K EXPANSION BOARD for 8032 PETs 


Yes. We couldn't wait for the others so we have launched our own 
64K Memory Expansion board to upgrade the 8032 PET to a full 
96K. Silicon Office and other 96K programs are now possible on a 
32K PET with our board. It is of U.K. design and manufacture and 
comes complete with full fitting instructions. 


Our price £350 
Other new PET enhancements include: 


EPSON/PET INTERFACE CARD RRP £90 
For all MX printers. Our board gives 40 column PETs uppercase 


and ee and 80 column PETs both upper and lowercase with- 


out the need of switches or any software routine. 

RICOH RP1600 INTERFACE CARD RRP £115 
Our board gives 40 column PETs uppercase and 80 column PETs 
both upper and lowercase without any restrictions. 


Add £10 delivery plus VAT to above prices. 
To place your order send your remittance for the required amount 
to: 


PINEWOOD COMPUTERS 
Mail Order Dept., 
17 Adelphi Crescent, 
Hayes Park, Hayes, Middx 
or telephone 01-841 1507 


DEALER ENQUIRIES WELCOME 
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Microcomputers 


A Beginner’s Guide 


This month we start a brand new feature in the 
magazine, aimed exclusively at the businessman 
and the world of microcomputers. 

Each month we'll be looking at the various 
aspects of computers in business, not only as a 
guide to the newcomer, but also intended for the 
more experienced user who is perhaps trying to 
increase the potential of his or her system. 

We’ll round off each article with a brief look at 
any new developments in this field in the 
software, hardware and also book areas. 


Where do | begin? 

This must be the most commonly asked 
question by the businessman who wishes to 
increase the efficiency of his office. (At the 
extreme risk of offending all womens libbers, !’ll 
continue to use the term ‘his’ from now on. 
Please take it to mean both sexes, | can’t keep 
writing ‘his or her’ all the time!). There is an 
enormous number of computers on the market, 
each one seemingly backed up by a dazzling array 
of software and various users guides. Truly, 
where do you begin? 

We are not a general magazine, we are solely 
covering the Commodore range of machinery, so 
our choice is made significantly easier from the 
outset. We will only categorise various job needs 
into one or more of the Commodore computers. 
After all, for every micro currently available, there 
will be, somewhere along the line, a Commodore 
machine that will be reasonably analogous. 
Consequently, we will consider everything from 
that company’s viewpoint. 

The first thing that must be decided is, what do 
you want the computer to do? That is as hard for 
you to decide as it is for the salesman to answer 
the question ‘‘Well, | know it’s a computer, but 
what precisely do they do?’’ The oft-quoted 
answer ‘‘Anything you want them to, sir’ is 
insufficient for our needs, just as perhaps your 
idea of ‘’| want it to do my accounts’”’ is for the 
salesman. They say forewarned is forearmed: this 
is what you must do. 


Define Your Terms 

As in any argument, you must first of all define 
your terms. Take a look around your office, and 
try and assess precisely what you want doing. 
Perhaps you perform a lot of mailouts that you 
personalise because you think it will impress your 
clients. It certainly will, but it will not impress the 
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secretary if it means typing out virtually the same 
letter one hundred times. Thus you will need 
some kind of word processor, but this is not 
enough. 

There are many word processing packages 
available at present, ranging from the extremely 
basic to the very sophisticated. For the purpose of 
a plain mail-out, a fairly simple word processor 
would suffice, but you may want to do more. A 
common event is to install a package and then 
discover that you want it to do an awful lot on top 
of what you actually bought it to do. It is no use 
then saying ‘’Oh if only I’d spent another 50 
pounds and bought a decent package’’. Thus, 
you ought to consider what other common office 
procedures could be handled by a_ word 
processor, and go armed with that information as 
well. 

Obviously, word processing is not the only kind 
of office or business procedure that could be 
computerised. Other common examples include 
the inevitable accountancy, stock control, 
payroll, and so on, but don’t forget that there are 
many other problems that you may be 
encountering that could easily be solved by the 
introduction of an appropriate data base system. 

For example, for a long time people used to 
bemoan the fact that there was not set program 
for estate agents, forgetting that a good data 
base could quite easily cope with questions such 
as ‘give me all the three bedroom houses in 
Croydon currently selling for under 33,000 
pounds that have a garden gnome next to the 
goldfish pond’, or whatever. Many office 
practises can be tackled in this way. 

As we stated earlier, make sure you know what 
you want before entering the showroom. 


Close Encounters of the Salesman Kind 

When you enter the showroom, be sure to be 
armed with a series of questions that you will not 
be sidetracked from. In other words, do not go in 
there with the intention of purchasing a payroll for 
100 employees, and come out with a Pacman 
machine to keep 100 employees deliriously 
happy. 

There is no doubt about it, a salesman is paid to 
be a salesman, and if you’re hovering between 
purchasing or not, he will be perfectly capable of 
pushing you into a buying situation. ‘Ah yes sir, if 
you purchase this program AS WELL, you'll be 
able to... .’’. This is not the reason you walked 
into the shop: you want to tackle specific problem 
areas, and not wander off into some great debate 
about the merits of any particular company’s 
product. 


Make no mistake, | am not decrying salesmen. 
Rather, keep your wits about you: it’s your money 
after all, it’s only his commission. 


Get to the Point 

You know what you want, and it’s up to you to 
convince the other person THAT you know what 
you want. ‘’| want a program (or programs) that 
perform the following functions’’, and make sure 
you see the programs in action before going any 
further. 

It is a common practise, and regettably quite a 
deplorable one, that many packages have their 
own demonstration programs ready written, and 
when performing to that demonstration can 
appear to be perfectly adequate for your purpose. 
Do not ask to see (or be pushed into seeing) a 
demonstration using someone else’s data: if you 
want a computer to look after your stock control, 
for instance, go armed with data of your own. 

After all, it’s your data the program will be 
handling, not someone else’s. Certainly, give 
realistic figures, at the same time looking ahead 
to what your future requirements might be, but 
the message has to be: it’s your office, it’s your 
money, so get the system you want and not the 





one the salesman wants you to have. 


Summary 

When purchasing a computer system to 
perform whatever function, remember that you 
are the one who is going to have to use it. If not 
personally, you will certainly be held responsible 
for any shortcomings that might expose 
themselves as time goes by. Don’t worry that 
you're taking up too much of someone else’s 
time: that’s what they’re paid for. 


Next Month 

These pages have only featured a general guide 
on purchasing your first system. Over the months 
ahead we'll be exploring in greater detail more 
specific application areas, and covering the usual 
(and perhaps not so usual) office practises that 
can quite easily be computerised, saving you not 
only time, but more importantly money. 


New Hardware 

You'll no doubt have read about the plethora of 
new machinery that Commodore have committed 
for release in the coming months. The news on 
is very promising: a 


this recent visit to 





‘Oh, | Don’t Mind the $800,000 Price. But is that the 
Only Colour it Comes In?’ 
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Microcomputers 


Commodore left this author convinced that for 
once they have got it right, and that the 
announced new products will actually appear on 
time. 

The main machine as far as we are concerned is 
of course the Commodore 720, and to a less 
extent the 510 series. Clearly both of these are 
aimed at the top end of the market, with main 
emphasis on the 720. This is determined to win 
back the position that they were possibly losing 
to Sirius (and others), and stands an extremely 
good chance of doing so. 

The software planned for this is aimed fairly 
and squarely at the business end of things. As we 
mention elsewhere, some five companies have 
720s at the moment: one of them, MMS in 
Bedford, are developing an _ integrated 
accountancy package to run on the beast, and if it 
lives up to the reputatin of the Microfacts82 
system, will certainly prove a welcome member 
of what is bound to be a fairly large software 
family. 

The 8000 machines of course keep rolling on, 
with plenty of existing products to keep them 
going, which brings us nicely to... 


First, go to your CBM/PET dealer 
and ask to see at least two different 
payrolls. Second, make sure that one | ess 
of those you see is the LANDSOFT @ | cross 

We are serious when we Say you \ 
should see more than one. That way you 
are more likely to find the one most suited to your 
needs. However good PAYROLL PLUS is, there are 
certain things it won’t do that other payrolls will — 
and vice versa. ; 

Why do we Say that you should insist that 
PAYROLL PLUS is among those you should see? 
Because it is so elegant in operation and so 
extremely easy to use. If you want a 
payroll that needs an expert 
‘computer person’ to operate it, or if 
you enjoy spending hours trying to 
decipher an operating manual then 
PAYROLL PLUS is definitely NOT for 
you. You would find it too quick and 
easy to master. 

So don’t make the mistake of 
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New Software 

Not too much to report here, as not too many new 
business software packages have appeared 
lately: rather it’s the old favourites staying in the 
game. However, keep an eye out for Swedish firm 
Datatronic, who are bringing out increasing 
numbers of packages, with the emphasis going 
more and more towards the business side. 


New Books 

The best buy at present appears to be a book 
called ‘Business System Buyer’s Guide’, 
published by Osborne/McGraw-Hill at a price of 
5.95 pounds, and written by Adam Osborne with 
Steven Cook. 

Although this book is aimed at microcomputers 
and first time buyers in general, it does give a 
wealth of useful information about pitfalls to 
avoid, and practises to use when deliberating 
over which system to buy. So, although we know 
the computer make we want, we do not know 
which particular model or package to go with it, 
so this is certainly a book worth exploring. It 
contains much useful information. 
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buying another and then seeing PAYROLL PLUS 
afterwards. Your awareness of its excellence could 
then be most frustrating! 

PAYROLL PLUS is in use by a number of 
accountants and even bureaux. 

Versions for 8032, 4032 and 3032 series 
CBM/PET £150+ VAT. 


LandSoft. 


28 Sheen Lane, 
London SW14 8LW. 
Telephone: 01-399 2476/7 


SUPERIOR PROGRAMS FOR THE 
CBM/PET MICROCOMPUTER 
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‘THE HOLDENE GROUP 


Eivtit ig 82A Water Lane, 
Wilmslow, Cheshire, 
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Software Review 


Microfacts82 


Many microcomputers find their homes in the 
business environment, fulfilling a wide variety of 
tasks. One of the most common practises is in 
accountancy, where many man-hours can be 
saved by judicious use of hardware and software. 
This month we take a look at one of the major 
accountancy packages on the market at the 
moment, namely Microfact82, from MMS in 
Bedford. 


Facts ‘n’ Figures 

Microfact82 is a fully integrated sales, 
purchase, nominal and VAT ledger system, 
retailing at 1,000 pounds plus VAT, and will run 
on the 8032/8096 with an 8050 disk drive, and 
a variety of printers. It is in fact an update to their 
earlier Microfact80 package. 

Although their sales handout states that all up- 
dates and maintenance are provided free, with no 
time limit, the dealer hand out states ‘’We shall 
supply the up-date free of charge, but we have no 
objection if you wish to charge the user’’. If you 
are a user, you ought to have an objection if 
anyone attempts to charge you! 

As a quick footnote, MMS also provide two 
other packages which link into this main one. 
These are Microfact82 Sales Invoicing, which 
links into the Sales Ledger part of the main 
program (and has the facility to link into the sales, 
nominal and VAT ledgers), and costs 250 pounds 
plus VAT. 

The other program is the Microfact82 Stock 
System, which like the Sales Invoicing, is 
compiled, and links into everything else. It gives 
you the facility to prepare an invoice, update the 
sales ledger and stock records simultaneously, 
and finally interface to the nominal ledger. Quite 
impressive, at 500 pounds plus VAT. 


Further Improvements 

The original Microfacts was introduced in early 
1981 for the 3000 series of machines, and when 
the 8000 appeared later that year, many changes 
were made to the existing programs to take 
advantage of the new facilities now offered them. 
Chief amongst these changes was the use of 
compiled programs, which speeded up execution 
considerably, and a complete revision of the 
menu structure, giving much faster access to the 
independent routines. 


Capacity 
The total number of records available using an 
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8050 disk system averages out at 10,000. 
However, this is made up of sales accounts, 
purchase accounts and nominal accounts, along 
with outstanding sales and purchase transactions 
and period nominal transactions. The former take 
2.5 records per account and the latter 1 record 
per transaction. Thus any combination, 
depending on company activity, can be calculated 
from the above figures. 


Security 

There are a number of built in security checks, 
to avoid unlawful tampering with your company 
data. For instance, all nominal ledger reports can 
be protected by a 4 digit password number. In 
addition to this, there is an extra password 
number included, which allows access (provided 
you know what you're doing) to the password 
change routine. 


Program Operation 

The programs are extremely easy to use, and 
unlike most accountancy systems do not require 
hundreds of disks to be swopped continually. 
Microfacts uses just two disks, but of course it is 
desirable to have backup copies made at fairly 
frequent intervals. There’s no point in 
computerising your accountancy, only for 
someone to come along and accidentally wipe out 
your data. 

To do this from within Microfacts would be 
rather difficult, if not impossible. However, 
there’s always the risk of accidental erasure from 
exposure to magnetic fields or whatever. 

The documentation as a whole is quite good, 
but as most of the instructions for use can be 
displayed on the screen, there is no need to keep 
constantly referring to ‘War and Peace’ as is the 
case with a number of other packages. The users 
guide is very good: it covers everything in a pretty 
straightforward manner. | am by no means a 
professional accountant, but it was all simple 
enough to understand. 


Setting Up 

Obviously a great deal of time will be spent 
initially entering all your previously man-recorded 
data. Logically enough, the user will have to 
exercise a fair amount of caution here, as one slip- 
up could eventually prove disasterous. However, 
there is a lot of checking of data inputted by 
Microfacts, field lengths are displayed, ll 
necessary instructions are shown on the screen, 
and so on, so there should be no great problems 
encountered here. As a whole, the package is 
user friendly in this, and other, aspects. 












Tes hee 


‘Murder, eh? I’m in for Bending, Folding and 
Mutilating Computer Cards.’ 


Ledger Control 

Having set up the company account, of which 
up to five can be stored per disk depending on 
overall volume, ledger controls then have to be 
implemented. This is done by specifying company 
name (up to a maximum of five), ledger number 
(five sales or purchase ledgers per company), 
ledger name and type (whether sales or 
purchase), and finally nominal ledger control 
account numbers. 

If the ledgers are to be linked, then the program 
will automatically create the relevant control 
accounts in the nominal ledger and provide the 
relevant account descriptions. 

Having gone through this systems control 
procedure, the individual accounts are then set 
up. This is done quite simply by returning to the 
main menu and selecting the appropriate option, 
and one then follows normal accountancy 
practise, with no deviations to accommodate the 
computer. 

Once you're set up and ready to go, starting up 
every day is a straightforward procedure. Various 
printer options are supported, which have to be 
specified at the commencement of any run. The 
paper to go with this can either be standard 11”’ 


by 9.5’’, or specially printed sales invoices, sales 
ledger statements and purchase ledger 
remittance advices. 

Samples of these can be obtained from any 
Microfacts dealer. Alternatively you can always 
have your own personalised paper printed, but 
this does tend to be on the expensive side. 

Various standards for data entry, both alpha 
and numeric, are adhered to throughout: again, 
once the user is familiar with these, no problems 
should be presented in the day-to-day entering of © 
information. 


Period End Routines 

Having taken the obligatory security copies of 
the master disks, in case of disaster, the daybook 
file is then run out, which automatically updates 
the nominal and VAT aspect of any transactions. 
This can in fact be done at any time, but is 
preferably only done at the end of the period. 

Cash book, petty cash book, wages etc. are 
entered as self balancing journals, followed by a 
printing of the trial balance until one gets it right. 
The period nominal ledger transaction report 
follows, without which the period end routines 
cannot be run. 

Finally the period nominal journal report (and 
sales and purchase reports if necessary) follow, 
before the actual period end routine. This 
removes all fully settled transactions from the 
sales and purchase ledgers, and clears the period 
nominal ledger transaction file, whilst modifying 
the nominal ledger account balances brought 
forward. 


Conclusion 

It would be impossible here to go through 
thoroughly everything which is implemented in 
this package, otherwise there would be nothing 
else in the entire magazine! Suffice it to say that 
it covers everything desired of an integrated 
accountancy package, with links to stock control 
et al. as optional extras. 

It is not cheap: no package of this nature and 
scope can ever hope to be so. For the price you 
pay, you are getting a very good deal. 

To sum up, one of the best and most thorough 
accountancy packages on the market at present. 
Ring up Shane Barnes of MMS (0234-40601) to 
find out who your nearest appointed Microfact82 
dealer is, and get them to take you through its 
paces. If accountancy problems are clogging up 
your company, or even if things are going fairly 
well, you will not be disappointed, and you may 
well find yourself saving both time and money. 
After all, isn’t this what accountancy is all about? 
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Hardware Review 


PD Digital Plotter 


Last month we featured a review of the 
HP7470A plotter from Hewlett Packard. Coming 
in at over 1,000 pounds, it nonetheless proved to 
be an attractive buy for the kind of use it would 
get put to. Can a graphic plotter at less than 600 
pounds prove equally attractive? 

J.J. Lloyd, down in Southampton, have been in 
business for around 20 years now, and have been 
producing analogue recorders for the last 12 of 
those. As well as these, their main areas are in 
tensile testing equipment, and educational 
equipment. 

Already well-established as one of the largest 
European supplier of analogue recorders, they 
have now come out with a low cost digital plotter 
(a spin-off from earlier work) for the Pet. Inciden- 
tally, this is their first entry into the printer/plotter 
market. 


Places of Use 

As with most plotters, the main use of the PD4 
would be to provide graphical representation in a 
fairly clear way, that could not otherwise be 
obtained on the more traditional printers 
available. Thus, anywhere where the Pet is being 
used to accept and analyse data in fact. Such 
fields as maths, physics, engineering, R. and D., 
architecture, and so on. 


First Appearance 

The machine is of attractive design, with a 
number of exterior controls for use in local mode: 
one of these toggles you from remote to local. Of 
the others, two are for use in defining the zero 
point for the X and Y axes, one is a pause facility 
whilst plotting (and unlike the HP one, this works 
properly! i.e. it does start off in the same place as 
it left off), one resets the axes after you’ve 
finished re-definition, and the final one.is a simple 
lift and put down the pen. 

Linked up to the Pet by a direct IEEE 
connection, the plotter will work with any of the 
3000, 4000 or 8000 series machines. 
Interestingly enough, the software to drive the 
beast comes in ROM form, which adds a number 
of commands to the existing Basic interpreter, 
performs straight line interpolation and allows 
character generation. 

The idea of putting the software in ROM is a 
good one, as it means that the Pet can still 
continue to operate as a normal machine, but 
access to the new commands is but a SYS call 


2 O Commodore Computing 





away. To get back into normal mode, there is a 
Kill command to disconnect the package, 

Initial setting up of the plotter is explained 
clearly and precisely in the manual provided, and 
the manual as a whole is more than adequate 
even for someone who has never used such a 
device before. 

After going through the procedure of getting all 
the cables linked up, the ROM installed and the 
package implemented, you're ready to go. 
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Commands Implemented 

Fifteen extra commands are added to the Basic 
interpreter. 

Whilst this is not comparable to the two million 
with the HP machine, it is enough to produce 
reasonable output, as the accompanying 


‘illustrations show. All the now-to-be-expected 


commands are there, such as move pen, draw 
(both of these in absolute or relative), print 
various strings, specify size of characters, draw 
axes, home, and so on. 

Six additional error messages are also added to 
the command set. 

A couple of special commands deserve extra 
mention. The first of these is rotate character, 
which can be done through O, 90, 180 or 270 
degrees. This is particularly useful for such 
functions as plotting graphs, labelling axes, and 
so on. Like all the other commands, it has to be 
reset before proceeding further, otherwise some 
very peculiar results can occur! 

The other interesting one is for producting 


special graphics characters: a set of four are 
already implemented as soon as you set the 
system up. 

One idiosyncrasy with mixing with Basic must 
be mentioned here: when using an IF... THEN 
statement, if the THEN is to be followed by a 
plotting command, it must be followed by a 
colon. Thus, we have IF .. . THEN: !DR etc. 


Detailed Useage 

lf for some reason you wish to change the 
device number of the plotter (as supplied it is 
device number seven), the manual gives you the 
details of how to do this. Thus you can go from 
any device number in the range zero through to 
thirty: obviously you'd have to be fairly careful if 
you had a number of other devices on the bus. 

If you’re interested in this kind of thing, the 
manual goes into a fair amount of detail about 
how data is transmitted and received, a brief 
rundown on how the IEEE standard works in 
conjuction with the plotter, and so on. It’s good to 
see this kind of thing included, bearing in mind the 
sort of fields it is likely to be used in. 


Sample Programs 

Whether J.J. Instruments supply sample 
software on disk or tape is up to how you charm 
the salesman. We were certainly provided with 
such material, and | should imagine they would 
have no objections to supplying you. Certainly a 
number of programs are included at the back of 
the manual. 

Vectors are drawn in either absolute or relative 
mode: absolute relates to the origin, wherever 
you've defined that to be, and relative refers to 
the last pen position. Commands can also be 
stacked, so as to save repeating the new Basic 
command all the time. When using these new 
commands, one must always use variables rather 
than absolute addresses, so these must be 
defined before attempting to do anything. 


Plotting Statements 

For instance, the statement 
X= 10:Y =20:!DR,X,Y would be acceptable, but 
not !DR,10,20. This in reality is of benefit, as it 
makes error checking of programs that much 
easier. 

All of the variables you define refer to millimetre 
measurements, using an overall scale plotting 
area of 250 millimetres in the Y axis, and 180 in 
the X. The actual resolution of the plotter is 
0.044 millimetres in the X direction, and 0.061 in 
the Y. 

The sample programs provided cover such 


topics as drawing curves, printing of various 
special characters, axes, circles, and onto such 
esoteric subjects as Lissajous figures, Polygons, 
and Histograms. Given the basic information 
gleaned from this, it is easy enough to get heavily 
involved in your own plotting routines. 


Technical Information 

Some of this we’ll have given you already, but 
one or two other salient points. The plotter will 
accept copy up to a size of 297 x 210 
millimetres, but will only plot on a 250 x 180 
grid. Plotting speed is, naturally enough, 
dependent.on the speed of the Pet, but with pen 
raised it races along in the Y axis direction at a 
rate of 600 millimetres per second (or 1.34 miles 
per hour, if you want to impress your friends). 

The pens are the usual plotter fibre tipped ones, 
and by judicious use of the pause facility, multi- 
colour plots can easily be performed. Both pen 
and paper can be obtained without any major 
problems. 

Physically, it weighs in at approximately 9 
kilograms, with dimensions of 360 x 445 x 
125 millimetres. All in all quite a compact little 
unit, and certainly transportable. 


Conclusion 

There are quite a few plotters putting in 
appearances for the Pet these days, with more 
and more coming on the market all the time. 
Consequently for a first time buyer in this field, 
the decision as to which to choose is becoming 
ever more and more difficult: rather like a first 
time computer buyer, there is an increasingly 
large array to choose from. 

Certainly, price will (as ever) be a major 
consideration here J.J. Instruments cannot be 
faulted. At just under 600 pounds it represents an 
attractive buy. 

Ease of use must again be a major selling point. 
Whilst the J.J. one has nothing like the range of 
commands that the HP plotter we featured last 
month has, those that are there are probably 
sufficient for most purposes, and are as easy to 
use as it is to write a Basic program to print out 
the numbers one to ten. The HP7470A is easy to 
use as well, but rather like the difference between 
Basic and machine code, | feel the PD4 is a more 
comfortable introduction for the beginner. 

Allin all, the plotter (given the price) represents 
good value for money, and is definitely worth 
comparison with plotter retailing at twice the 
price. 

For further information contact Dave Sawyer of 
J.J. Lloyd Instruments on 048 95-4221. 
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Book Review 


Pet Fun and Games 


The book has something for every games fan, 
action games, puzzles, games of risk, strategy, 
chance and fun, so no one who buys this book 
loses out. 

Compiled by Ron Jefferies and Glen Fisher from 
programs sent in to the American cassette 
magazine Cursor over the last three years. Thirty- 
one games (and fourteen of the best 
programmers!) have been chosen, and they are all 
highly enjoyable either for their fun value, skill, 
creativity or even education value. 

The contents are listed out at the beginning of 
the book in sections for the different types of 
games, and each game has a few words on what 
it does so you know what you have in store if you 
play it! 

Although distributed in England it was written 
in America and one or two problems that might 
arise if you have certain Commodore Machines 
should be stated. 


Mixing Business with Pleasure 

In America Commodore marketed the CBM 
Business machine for the business man and the 
PET for the general market. On the CBM there are 
no graphic signs on the keyboard although the 
graphics are still there. 

The book tells you how to get into graphics 
mode clearly and precisely, by using the POKE 
59468,14 (12) method, but unfortunately if you 
have an 8000 series machine or a CBM using this 
program and run it your graphics will appear dis- 
jointed, although this does not stop you playing 
the game it does spoil the interesting graphics. 


Introduction 

The introduction is short and to the point, no 
messing about here with long words or waffle. 
The importance of any graphic symbols that 
appear in the listings is described in the 
introduction, i.e. every symbol reproduced in a 
listing is meant to represent one of the existing 
Commodore graphic symbols. As not every make 
of Commodore machine has these symbols 
represented on the keyboard legend, and even if 
they have some of them take a lot of finding, this 
is a useful convention for publishers to adopt. 

One problem | have often come across is that of 
trying to read badly typed or even worse badly 
written programs! | cannot fault this book where 
the typing of programs is concerned. The 
typeface they use is large and very clear, one 
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could not make a mistake through poorly typed 
listings. The printing itself is also very clear and 
remains so throughout the book, thus making the 
tedious chore of typing in a listing almost 
enjoyable! 


Conclusion 

A very good and enjoyable book, | cannot fault 
it. It is easy to understand with no complicated 
wording for the beginner. It is well typed and 
printed and at £7.50 it is reasonably priced for 
the young games player (Fathers, guard your 
wallets!). Available in this country from 
Osborne/McGraw/Hill, on 0628-23431. 


Hands-On Basic with 
a PET 


Hands-on Basic with a PET is just the book for 
all those of you who know nothing about 
programming the PET computer but want to 
learn. Although the books starts you off with a 
simple and straightforward introduction to the 
PET, it is very comprehensive and by the end you 
will have a thorough knowledge of how to 
program, as well as all the other subjects the book 
covers. 

The author Mr Herbert D Peckham starts off by 
telling us the origin of the language Basic: no real 
bearing on what you will actually learn, but 
nonetheless quite interesting to know, and a 
useful background reference point. 

The table of contents is well set out with good 
headings and simple sub-headings: the index 
supplements this admirably by providing clear and 
precise reference to material contained in the 
book. A quick look at these contents gives you a 
pretty good idea of the amount of ground covered 
here: from REM to Random, and stopping off at 
many places en route. 


Overall Layout 

Each chapter is neatly laid out, with questions 
and listings NOT squashed together but spaced 
out for ease of reading. An important point to 
notice is that the listings have not been re-typed 
especially for the book, thus causing more chance 
of errors, but instead the author has taken already 
tried and tested listings and printed them straight 
in ‘as is’. A wise move, as there is nothing more 
annoying, whether you are in a classroom 
situation or at home, than typing in a listing only 


to find that somewhere you have typed it in 
wrongly, and even more aggravating when you 
discover that it is not your fault in the first place. 

The book has been broken up with diagrams 
and humourous quotes for assistance in 
remembering the fundamentals, and very quickly 
changes the easy terms that it substitutes in the 
early stages for the correct computer terms that 
you will have to use when working with 
computers. 


Structured Programming 

When the author does begin to delve more 
deeply into programming he attempts to teach a 
structured programming method, rather than the 
thud and blunder style currently employed by so 
many other computer books on the market. 

Hands-On Basic with a Pet uses many 
examples, quizzes and tests throughout its 
content, giving the various answers at the back if 
you feel like cheating. Therefore, the best way for 
the learner to use the book is in conjunction with 
the PET itself, rather than just wading through it 
and trying to learn programming that way. An old 
Chinese proverb seems very much the basis for 
Mr. Peckham’s philosophy: — 


MIDLANDS 


COMMODORE PET 
SERVICE CENTRE 


Phone Anne on 021-772 8181 
about our 


1. WORKSHOP & FIELD 
REPAIRS 


2. BUSINESS SOFTWARE 


STATIONERY & SUPPLIES 


cOnsuTAnTS 
COMPUTER BUSINESS SYSTEMS 


75 Watery Lane, Birmingham B9 4HW. 
Telephone:021-772 8181 (7 Lines) 


| am told and | forget 
| see and | learn 
| do and | understand. 


SUMMARY 

A very good book, | would recommend it for 
computer courses within schools and colleges. It 
is clearly and concisely written for teaching 
students who know nothing about the PET 
Computer, but wish to learn without the teacher 
having to juggle between five or six different 
books. 

At £11.95 the book is fairly priced both for 
schools and colleges and for the home user. 

McGraw-Hill (UK) Ltd do sell direct to the public 
as well as through mail order, at the following 
address: — 


Marketing Services Dept 
McGraw-Hill Book Co (UK) Ltd 
FREEPOST 

Maidenhead 

Berkshire SL6 20L 


Their books should also be available through any 
good book shop. 


Commodore CBM systems are dependable, efficient, 
versatile, easy to maintain. That’s why so many companies, 
big and small make their move through 


RB ALPHA 


Business Systems 


Electron House 
Industrial Estate 
Church Street 
Ware SG12 9ES 


Telephone Ware (0920) 68926/7 
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Guest Expert 





Dave Scott looks at Cursor Positioning Routines 


After having programmed in a BASIC with 
many more extensions, structured constructs, 
and easy file handling commands, you might 
easily become frustrated writing code in 
Commodore BASIC. Of course, when working on 
the larger machines that support those types of 
BASICs, you don’t ever get a feeling or 
understanding of how the operating system really 
works. One of the nice features about the PET is 
that you can actually look at the operating 
system, change certain parts of it to fit your own 
needs, and use some of the ROM routines to 
interface with your own programming. 

One of the features | missed most was the 
ability to move the cursor to an X,Y location on 
the screen and print a message there. After a few 
attempts to position the cursor using POKEs to 
address 198 (position of cursor on above line) 
and 219 (line where cursor lives), | decided to 
write my own routine. 

The routine is written in machine language and 
sits at the top of RAM, so that it can be used by 
any BASIC program that is loaded. The routine is 
entered via a SYS 32256, and your BASIC 
program must pass certain parameters as in the 
format: 

sys 32256,y,x,’’your message should appear 
here”’ 


Where “‘y’’ is any line number between O and 24 
(25 lines), and ‘‘’x’’ is any column position 
between O and 79 (80 columns). If the format is 
not as that listed above, or your X,Y coordinates 
are not in the correct range, the routine will break 
with a ‘’syntax error’. 

| have provided both a BASIC poke program 
that readjusts the top of memory in order to 
secure the routine and pokes in the appropriate 
code for the routine, and the actual source 
assembly listing for those of you who have an 
interest or wish to make changes. 

Since it may be awkward to run the poker 
program everytime, you may wish to run it once, 
then break into the monitor and do a machine 
language ‘‘save’’ to save it in program format (for 
subsequent ‘‘dloads’’). In this case, | have also 
provided a loader program which first readjusts 
the top of memory pointers and the start of 
variable pointers (according to your largest 
program module in your application), then loads in 
the ‘‘program’’ version of the routine, and finally 
loads in your first application program, in this 
case, the ‘‘master menu’’. 

This program will also work on 40 column PETs 
if you change the value ‘’80”’ on line 200 of the 
BASIC poker program to ‘’40’’. 





00001 0000 {EER KRHHH HSK HAH KSA KKH SSKRHHKHHKSKKHRH SKK HH SHHK HK HKKHK HELL HHS KRHA HHH HHS 
00002 0000 pRREE ba 
00003 0000 ;*#*** Program neme = disoleuy.sre 

00004 0000 s#*#** author = dave scott, chm us 

00005 0000 s#e#% date = 02/23/82 

00006 0000 5 RHEE 

00007 0000 ;*#*** Purpose: the purpose of this program is to print @ message at 
00008 0000 sR RRSE ao specified x,y location on the screen. itis 

00009 0000 pe RE entered via the "sus" command and the basic program 

00010 0000 7 FHKE must pass certain parameters. the suntax for the sus * 
00011 0000 ee command is: 

00012 0000 sRHES 

00013 0000 peeRE sys 32256,15,30,"this is test" 

00014 0000 5 HERE 

00015 0000 sR RS where 32256 is the sus address, 15 is the line, 30 is 
00016 0000 5 RRRE the column, and the string in between quotes is the 

00017 0000 gRRRE message to be printed at that x.u location. seal the # 
00018 0000 g REESE routine off from basic by doing 2 poke 52,126. 

00019 0000 5 #eRe RHEE 
00020 0000 5 FEF SES SEEKER EFSF S SALE KKK KL KEKLL LASSER KKK KKK KKK KEK KKK KEKE ESE 
00021 0000 3 

00022 0000 j FH RSRSASKAAKA SAHARA RARA KRHA KERR RRR RR RE 

00023 0000 5 HEHE kernal routines HREE 

00024 0000 5 EX SEER KHAHKH SSK SA AAKSSSK KASS SK Hee Kee Kee 

00025 0000 ; 

00026 0000 outchr=$ffd2 sprint char in acc 

00027 0000 ; 

00028 0000 5 RE SRSKSRHSAKKSKK SKA SASHKHKKKK RRR RRR Ree RE 

00029 0000 7 RERH rom and system routines EERE 

00030 0000 5 HR SRSKAS HSK KH SHAS HSS ASHAHKAKSR ARKH Ree Re SHES 

00031 0000 ; 

00032 0000 chrget=$0070 ;char get (in 4.0) 
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00033 0000 chrgot=$0076 ;char got (in 4.0) 

00034 0000 synerr=$bf00 ;syntex err (in 4.0) 

00035 0000 ; 

00036 0000 FFF RKAA FARRAH KSHRAKAKKLRSAKKKAK KKH KHHKKRK RSS 

00037 0000 5 RFE storage areas ee 

00038 0000 FFX FHKA KARR KKHKKSKAK KKH KKH KKK HHH KKH 

00039 0000 ; 

00040 0000 txtptr=$0077 jcurrent char 

00041 0000 chkspc=$007F ;check for space 

00042 0000 ; 

00043 0000 pRHHKAKAAKK AKA SKAKSHKKK KK KKHA KSA K KSSH KKKHS 

00044 0000 5 REEF main routine EERE 

00045 0000 FR HRHAKS AHHH SKSKAAHS HASH ASAHKS KKH SKKKS KHER 

00046 0000 ; 

00047 0000 #=$7200 

00048 7600 ; 

00049 7€00 20 13 7e jsr savcod ssave chrget code 
00050 7203 20 2f 7e jsr movey cursor to line y 
00051 706 20 39 7e jsr movex ;cursor to column x 
00052 72609 20 43 7e isr prtmsg display message 
00053 7e0c 20 24 7e jsr getcod grestore chrget 
00054 7e0f 20 70 00 jsr chrget pget next char 
000SS 7e12 60 rts greturn to basic 
00056 7e13 . 

00057 7e13 ; 

00058 7e13 5 XX HAEKXXAAKXSSAK KASH KK KKSSA RHA HH HHH 





00059 7e13 242 save chrget code 7f-80 #3 

00060 7e13 5 RX HKKKKASAAAKSSAHASAKKAASAKSKS SSAA SKK HHH 

00061 7el3 ; 

00062 7e1i3 aS 7Ff savcod lde chkspc ;these lines save 
00063 7eiS 8d f6& Je sta store ;the code from chrget 
00064 7e1&8 aS 80 lda chkspct+i ;that check for @ 
00065 7ela 8d f7 7e sta storetl ;space and replaces 
00066 7eld a9 ea lda H$ea ;them with a nop 
00067 7elf 85 7F sta chkspc sinstruction "ea" 
00068 7e21 85 80 sta chkspct+l ; 


DO YOU PLOT 
GRAPHS? 


This is the affordable answer. The new Hewlett Packard 
7470A two pen graph plotter connects directly to your 
Commodore Pet (no interface required). 


For full graphic output of Graphs, Pie Charts, 
Histograms, Overhead Transparencies, also with full 
Digitising facilities. 


Supplied complete with cable, programming manual and 
sample program listing at: 
£999 + V.A.T. 


10 days approval against official orders. 


For further information or a demonstration contact: 


C.S.E. (Computers) 
12 Wokingham Road 
Reading, Berks. 
Tel: Reading (0734) 61492 


P.S. Also available for Apple. 
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00069 7e23 60 rts 

00070 7e24 ; 

00071 7224 FFX ASAAKASS KKK KKSSSASASKHKHKRKKAH KH HH KH 

00072 7224 ;e#*#* put back chrget code 7f-80 HREE 

00073 7e24 7 EX FRSKK SHS KL SSS SSK SSK SSH SHRSKK KK HHH 

00074 7€24 ; 

00075 7e24 ad fé 7e getcod lda store gthese Lines put 
00076 7e27 8S 7F sta chkspc stack the original 
00077 7e29 ad fF7 7e lda storeti schrget code 
00078 7e2c 85 80 sta chkspctl 3 

00079 7e2e 60 rts ; 

00080 7e2f ; 

00081 7e2Ff FFE EHLERS AKASH HKHSHKSHHHSSAS SSSR HKHSHKS 

00082 7e2f 3 : cursor to line yu 

00083 7e2f 5 ERS SRS SSSR KARR HARES SSK KEK SHR EERE 

00084 7e2Ff ; 

00085 7e2f 20 b& 7e movey jsr chkcom scheck for comma 
00086 7e32 20 69 Je jsr gety 7get value of y 
00087 7e35 20 7b 7e jsr posy ;cursor to y 
00088 7#38 60 rts 

00089 7839 ; 

00090 7839 5 EE RAH SRSA KSS SSS SASS SKK SS SS SSSR KS 

00091 7239 cursor to column 

00092 7e39 j RH HHSAKAAS ARAL K SSSA KA AHSSSS ARASH ASS K HHS 

00093 739 ; 

00094 7639 20 b& 7e movex jsr chkcom scheck for comma 
00095 7e3c 20 90 7e jsr getx sgqet value of x 
00096 7e3f 20 a2 7# isr posx scursor to x 
00097 7242 60 rts 

00098 7#43 

00099 7243 FHS HHAKA AHHH HAHAH HHH HAA SAAS LAH HEKHKHHKH SSS 

00100 7#43 a crint msa RES 

00101 7243 ee ee eee ee ee eee eee eee ee ee ee ee ee Pa ea a 


00102 7243 


commodore 


COMPUTER 


KINGSLEY COMPUTERS LTD. 
132 Desborough Road 
HIGH WYCOMBE, BUCKS HP 11 2PU 


CBM BUSINESS SYSTEMS 


until 31st July 


VIC HOME COMPUTERS 


COMPUTER ACCESSORIES 
AND SUPPLIES 


SUPPORT 
AND 
AFTER 


S ALES Wellson House, Brownfields, 
Welwyn Garden City Herts. 
Tel WGC (07073) 31436 
SERVICE Telex 298641 


AGENTS FOR CBM 
APPROVED PRODUCTS 


COMMODORE 
SERVICE CENTRE 
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00103 7e43 20 
00104 7246 c9 
00105 7248 f0 
00106 7e4a 4c 
00107 7e4d 
00108 7e4d 20 
00109 7850 c9 
00110 7e52 £0 
OO111 7e54 4c 
00112 7e57 
00113 7657 20 
00114 7eSa cP 
00115 7e5Sc f0 
00116 7eSe c? 
00117 7e60 f0 
00118 762 
00119 7eé62 20 
00120 7e6S 4c 
00121 7eé8s 
00122 7¢e68 60 
00123 7e69 
00124 7eé9? 
00125 7e69? 
00126 7eé69 
00127 7269 
00128 7e69 f0 
00129 7eédb bO 
00130 7eéd 20 
00131 7e70 ad 
00132 7e73 cP? 
00133 7e75 bo 
00134 7e77 8d 
00135 7e7a 60 
00136 7e7b 
00137 7e7b 
00138 7e7b 
00139 7e7b 
00140 7e7b 
00141 7e7b ae 
00142 7e7e a9 
00143 7e8O0 20 
00144 7e83 €0 
00145 7e85 £0 
00146 7e87 a? 
00147 7e89 20 
00148 7e8Sc ca 
00149 7e8d dO 
00150 7e8f 60 
00151 7e90 
00152 7290 
00153 7e90 
00154 7e90 
00155 7e90 
00156 7e90 f0 
00157 7e92 bO 
00158 7€94 20 
00159 7297 ad 
00160 7e%a cP? 
00161 7e9c bO 
00162 7e%e 8d 
00163 7eal 60 
00164 7ea2 
00165 7ea2 
00166 7ea2 
00167 7ea2 
00168 7ea2 
00169 7ea2 ae 
00170 7eaS «£0 
00171 7ea7r FO 
00172 7eaY a9 
00173 7eab 20 
00174 7eae ca 
00175 7eaf dO 
00176 7ebi 60 


Continued on page 53 


ff 
7e 


7e 
Je 


7e 


7e 


££. 


ff 


7e 
7 


7e 


7¢@ 


ff 


prtmsa jsr chrqot 
cme #44 
beg orti 
jmp err 


isr chrget 
cmp #34 
beq prt2 
jap err 


9 

pert2 jsr chraet 
cap #34 
beq prtend 
cmp #0 
beq err 


jsr outchr 

jap prt2 
3 
pretend rts 
; 
| XX HHA RKAAKAKKKA KKK KKHA KKH KKK HKRKKKKKKKKE 
pRRRE get value of y KRRF 
5 XX HAKKAR KKKKAKKAAKKKHKAAHKAKHKKA HH HKHKHER 
; 
gety beq err 
bes err 
jsr aschex 
lda temp 
cmp #25 
bes err 
sta ycoord 
rts 
a 
F XX FAAAAK RASA KAKKKA HAAS R HARA KKK eKS 
5 HEE move cursor to line y HRRF 
7 XX SAAR KKKKAA RHA HAAR HAKKAR KAR KKKSS 


, 
fosy ldx ycoord 
tda #19 
jsr outchr 
cpx #0 

beq posyen 
lda #17 
jsr outchr 
dex 

tne posyl 
posyen rts 


, 
FFF RFRA RKFFRKRERKKEKRFKRKKKRRKKKHKRKKKKKKKHSE 


7 HERE get value of x HERE 
7p RX RKEAREKKKFFRKRKKRKKKKRRFRKKKKKKEKKRRRKES 


posyl 


, 
getx beq err 

bes err 

jsr aschex 

lda temp 

cmp #80 

bcos err 

sta xcoord 

rts 

; 

FES RHAK SHH KKA KKK KSSH SKK KK KKK KKK HR SS 
;XH2X move cursor to x HHKS 


9 
bosx ldx xcoord 
cpx #0 
bea posxen 
lda #29 
tosxl jsr outchr 
dex 
tne tosxd 
FOoSKen rts 


sget current char 


US Vato ge 

> Wes, print msg 

> no print syntax 
error 


get next char 

check for quotes 
yes, go print 
no print syntex 

error 

sget next char 

scheck for quotes 

5 yes, done 

’ 


end of Line?? 
print 
syntax error 


yes, 


get next char 


;invelid cher 

7 print syntax error 
;conver # to hex 
stemp=converted val 
sis y < 25 

3 no 

;store y coordinat 

’ 


;cursor down using 
ycoord as counter 
home cursor 

is y = 0? 

yes, done 
19 home 
D4 cursor down 


ee ee 


done 


;invaelid char 

7 print syntax error 
sconvert x to hex 
stemp=converted val 
318 x > 8077 

7 yes 
7store 


in xcoord 


scursor to column x 
; if ~x=0, done 
; if not, 
+ use xcoord as 
+ counter 
29 = cursor —-* 
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‘“Specialist Data Logging”’ 


Many industrial and research plants, and 
processes, must be monitored carefully, either for 
statistical information gathering or to warn of a 
malfunction in the system. 

The programmable logic controllers normally 
used for these tasks are now being supplemented 
by the addition of a microcomputer. Woking 
computer and data logging specialists PPM 
Limited (Tel. 04867 80111) have developed a 
number of units designed for industrial data 
acquisition based on modified Commodore PETs. 

PPM obtained one of the first PETs in the U.K. 
in 1977 for evaluation, and on the basis of their 
trials became Commodore agents, supplying 
around 1,000 PETs in the time since. 

Their other interest in the PET lay in the fact 
that it used an IEEE interface for operation of its 
peripherals. 

“It was the first low cost IEEE bus controlled 
micro-computer, and it revolutionised control 
monitoring, making data logging systems 
available to a much wider group of users. 

“‘And as the cost of labour has risen, and the 
price of hardware dropped, the number of 
potential users has continued to rise. 

“‘It makes sense to monitor processes 
automatically now, as it is by far the most cost 
effective method,’’ PPM Director Roger Connel, 
explained. 

The PET had the further advantage of being 
readily fitted with an RS232 interface, so PPM 
set about developing the PET into a control- 
oriented micro-computer. 

This took two forms — a more or less standard 
looking PET, and a special ‘industrial’ rack system 
for use in factories. 

Important modifications to the standard PET 
included the full implementation of the IEEE 
interface to suit control equipment; provision for 
the holding of programmes on EPROM as an 
option to floppy disc; and the designing of a 
programme which would load automatically when 
the unit was switched on. 

The result is a system which to be as cost 
effective as possible takes standard PET 
peripherals — floppy disc drive and printers — and 
can be adapted to suit most industrial and 
research monitoring applications by varying the 
inputs, or by fitting appropriate test equipment. 

The ‘standard’ model is intended for use in 
clean dust-free places while the rack system is for 
use on the factory floor where is could be 
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subjected to considerable abuse in a harsh 
environment. In extreme conditions it can be 
fitted in a completely sealed cabinet. 

It is in this sort of situation that the ‘Autoload’ 
facility is particularly useful. Starting the 
monitoring process is a simple matter of turning a 
key. This switches the assembly on and loads the 
programme on the PET, which continues to run 
unattended for as long as the power supply is on. 
If there is a break in power supply and the unit is 
turned off, it will automatically load as soon as 
power is restored. 

The rack system is designed to be used with a 
plug-in keyboard, which is the engineering- 
oriented 4032 keyboard, even though the system 
uses the 8032 PET. 

Use of the plu-in keyboard ensures that the 
programme is not subject to accidental change. 

PPM will fit, as an option, a 20mA current loop 
to enable the PETs to be operated at a 
considerable distance from the data logging 
points, which may be scattered throughout a 
factory complex. 

Sold under the name ‘Compuscan’, PPM data 
logging equipment has been installed in many 
different companies in the past few years. 
Applications include the testing of gas turbines, 
automobile engines, automatic testing of cables, 
strain testing of roads and bridges, quality control 
applications like life testing of batteries, 
environmental monitoring in research 
laboratories, using the PPM series 8000 or 8100 
scanners. These are versatile measuring and 
controlling systems which can accept many 
different types of input, digital or analogue. 

Each scanner has up to 100 channels and as 
each PET can operate with a number of scanners 
it is possible to process a very great amount of 
information — and the PET in its turn, can be 
interfaced with a main-frame computer as part of 
a wide-ranging local network. 

A specific production line application of the use 
of PETs and the series 8100 scanner which PPM 
have installed is on a coffee packing production 
line. This set-up both counts the number of jars, 
and weighs the contents via electronic scales. 
Jars which are outside of control limits may be 
diverted, and the PETs print out a record of the 
maximum and minimum weights plus the average 
weight over a specified number of jars. 

Many of the programmes written by PPM for 
their special applications (and there are no off- 





the-shelf programmes for real time control 
applications) are very long, using up to 9OK of 
memory, and as the PETs have only 32K, they 
were among the first companies in the U.K. to use 
‘overlaying’ techniques with PETs. 

There are a number of other programmes for 
PPM PET-based systems — the Compucal Series 
1 to 4 for instrument calibration and Compucal 5 
for oscilloscope calibration, using appropriate test 
equipment for the purpose, along with the PET 
computer, disc drive and dot matrix printer. 

The Compucal series are designed to simplify 
calibration techniques and give automatic print- 
out of test results with a wide range of 
instruments. 

The oscilloscope programme also prints out 
results and it operates with oscilloscopes up to 
500MHz band width. 

Compucal is simple to use, and because it 
stores previous test results 1n floppy disc, these 
are available for comparison as required. 

Many of PPM'’s installations are concerned with 
temperature control, environmental conditions, 
process monitoring or test procedures on 
everything from a nuclear power station to an 
electrical appliance for the home, so _ their 


Competitions 


To tease and squeeze the best out of your 
rapidly developing computer brain. 


Programming 


To help you build your knowledge of 
sophisticated techniques. Step by step the 
secrets of the pros will be unfolded. 


Available at 


Clubs 


GS 
—— 
‘| Think a Simple Error Message Would Suffice.’ 





systems are demonstrably adaptable and take the 
Commodore PET a long way from its usual 
applications as a desk-top computer concerned 
with working out the payroll. It too is adaptable. 


in the expanding world of micro 
technology. 


Reviews 

A panel of experts assess the 

latest products both soft and 

hard as and when they become available. 


Programs 
Readers’ own programs published each 


your 
newsagent — 
NOW 


What's happening inside Britain's 
mushrooming micro club world. Interviews 
and profiles of the new computing breed. 


News 
A really fast up-to-the-minute 
analysis of all that’s going on 





week with prizes for the best entries. 


Questions 

Answered by an expert who knows ... 
In short, it's a package you can't 
afford to be without. Make sure, place 
an order with your newsagent. 
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Sound and Vision 


Song Data for Instrument Synthesis 


Probably the best way to get an idea of the 
information your PET needs to play music is to 
look at a coded song. The illustration attached to 
this article does just that. 

Users who already have the system, can, of 
course, examine any song they have, in a similar 
fashion. They can also experiment with the 
parameters of instructions, specifically the F6 
and F1 commands, to see what they hear. There 
may be a discrepancy in the starting address of 
the song data. | have a program with debugging 
extensions; my song data begins at $OFOO. The 
older version begins at $OEOO. There is no way to 
describe the available commands as precisely as 
it has been done in a book. If you have never 
looked at a coded song, |’d recommend you do it 
with the manual on hand. 

| have placed signposts on the code to help you 
see what commands are used and what they do. 
All commands are of the $Ex and $Fx type. You 
can see them in the first two sections of the code. 
In the third section, the flagged bytes mark the 
beginning of a musical ‘‘event’’ which loosely 
corresponds to a note. Note that these are 
excerpts. They do show several notes, as well as 
some of the structure of the song, but there is no 
continuity in the listing. 

The music program was written in machine 
code by Dr. Frank Covitz. The program intercepts 
your instructions (mostly Ex and Fx commands 
followed by their parameters). It issues an error 
message if they don’t make sense, or goes on to 
create instruments and play a song, if they do. 

Just as in BASIC, precise syntax has to be 
observed. The syntax is described in the book. It 
consists mostly of how many parameters a 
command is to contain and what information is to 
be put into those parameters. 

The code the user needs to enter consists of 
three major groups of communication: 

1. decide what sort of sounds you would like to 
hear 

2. build instruments and decide on how to play 
the song 

3. provide the score to be performed by the PET. 

The score itself is the simplest thing to enter. 
Music, its notes and durations are transcribed into 
numbers. That’s section 3 in the illustration. 
Coding is easy, once you enter a measure of two 
of music, it’s just tedious. Mistakes are costly, as 
room may need to be opened up or closed. 
Supermon or Extramon are handy; the “‘human 
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interface,’’ in the form of an editor, will be very 
helpful, indeed, when it’s written. 

The second major group is fun to write and is 
easy to do. That’s part 1 in the illustration. It’s the 
key to the whole system. It creates a base of 
numerous waveforms for each harmonic. You can 
copy the F5 instructions from the book, from 
songs you already have or you can invent your 
own by tranferring coordinates of your graph into 
the F5 command. Needless to say, if you have a 
way to analyze sounds, you can synthesize them 
back by entering a larger amount of data into the 
F5 parameters than shown here. That’s 
apparently what Frank Covitz does when he 
synthesizes real sounds (wolf, oink-oink, bang!, 
no listen... dripping water, flutes, trombones 
and a genuine (?) 17th century harpsichord). 

Finally, section 2 completes the requirements 
for a coded song. It consists of two parts. 

The first part builds sound configurations 
(loosely called ‘‘instruments’’) from the waves 
calculated in section 1. This is where most of the 
fun is and most experiments can be performed. 
There is no limit to a variety of sounds you can 
create from a finite set of waves. You do it by 
varying the last three bytes of the F6 command, 
with the largest and most interesting impact 
achieved by variations in the third byte from the 
end. This byte controls the variable speed at 
which waves are scanned during sounding of a 
note. F6 command used after the F5 command is 
the powerhouse of the program. This is where 
you achieve the distinct sounds of the 
instruments, or families of instruments, you plan 
to use. It’s really worthwhile to spend some time 
fooling around with the F6 command in the 
already coded song and listening to results. | can’t 
think of a better way to learn the system. 

The second part tells the interpreter the 
structure of the song. It includes addresses of the 
pieces, the order in which they are to be played, 
etc. as well as how to play a segment: its tempo, 
pitch offsets from the coded values, instrument 
assignments to voices, and stereo voice 
assignments (if you have two DACs). This 
information can be given once and will then be 
used for the entire song. Alternatively, it can be 
given for each piece or a group of song segments. 
It's your ballgame. You divide the song into 
meaningful segments based on the musical needs 
you detect (sound characteristics, timing 
changes, special dynamic changes, etc.) and you 
tell the PET how to play each segment. 


* STRIKE NOW !iv * 


UPDATE YOUR 8032 TO AN 8096 


with 64k of dynamic RAM arranged in 4 x 16k banks. The board is totally compatible 
with CBM 8096 memory boards and includes these impressive features :- 


* Screen I/O peek through as on 8096. 
* On board regulator for power supply. 


* Straight forward simple installation. 


* Sockets for up to 16k of EPROM. . 
* On board socket for processor. 


* Board comes complete with user documentation. 


Price £289.80 


including VAT packing and postage 


Please send your cheque payable to Typecraft Systems (Derby) Ltd., 


to 128 Derby Road, Long Eaton, Nottingham. NG10 4ER. 


Enquiries welcome - telephone 06076 69324 


T.A.L. 
COMPUTER DIVISION 


AN INTELLIGENT CHIP 


D.O.S. commands as per Universal Wedge program, and a 
sequential file reader. 


?INTELLIGENT CHIP? Yes. The same chip will work in 
$9000, $A000 and $B000 locations with Pet Basic 2 and up. 


£20 C.W.O. 


11 High Street, Leighton Buzzard, Beds. 
Tel: (0525) 372114 


STOP PRESS: Amateur radio operators. R.T.T.Y. 
plug-in module for Pets and Vics. S.A.E. for further 
details. 


a 


“INSTANT ROM” 


“Instant Rom’’ ROM/EPROM EMULATORS contain CMOS RAM with inter- 
nal battery backup. When the power is switched off, data is retained for up 
to 10 years. 

In the PET, a 4K INSTANT ROM can be fitted in the $9000 or $A000 
socket. Machine-code (and Basic) programs can be stored, and are available 
at switch-on. 

INSTANT ROM saves time. It can be used for long periods; when the pro- 
gram is finally ‘‘bug-free’’, an EPROM can be programmed. 

4K INSTANT ROM (ROM socket replacement) ..£56.00 
2K INSTANT ROM (character generator replacement) ee 
Adaptor GA1 (essential for PET users) 


“G-ROM E” 
G-ROM E is a 4K EPROM which will Auto-run, at switch-on, any Basic or 
Machine-Code program stored in INSTANT ROM. Basic programs can be 
stored with a few quick key-strokes. No skill is needed. Programs can now 
be run without a tape or disk unit, and can be changed without cost to the 
user. Diagnostic aids are included. 
G-ROM E (specify type of PET) 


Postage (£1.00) and VAT are extra. Leaflets are available. 


“INSTANT ROM” and ‘‘PETCLOCK’’ are COMMODORE APPROV- 
ED PRODUCTS. 

GREENWICH INSTRUMENTS LIMITED, 22 BARDSLEY LANE, 

GREENWICH, LONDON SE10 9RF, UK. Tel: 01-853 0868. Telex: 

896691 Attn. GIL. 
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Cc 
PC IRQ SR AC XR YR SP Meaning of the Code Purpose 
+ C6C3 9953 40 a0 3A 2G FR oe 
: GFOO EE 10 FS Bt 11.@1.00 90. — EE manages memory. 1 
: OFGS B2 08.10 OG.FF.92.00 90. (2)FS calculates $31 pages of waveforms Build base 
F from which various instruments canbe for sounds 
built 









FO sets 04 voices. 2 
(4)F6 build 4 instruments. Build 
(3)F 1 assign instruments to voices left to instruments 
right & song 
1 2 po to SBS. structure: 
aes a a ‘E (n)FE play song segments coded at pp bb how to play 
: OF7O FE 01 06 FE 01 BB FE a1 — “lative 10 SOFOO ep oo 
69 FE @1 G6 FE O1 CB FE 
+: QOFS@ O1 6G FE a1 EA FE a1 60 
+: @FS&3 FE 02 4F FE 91 00 FE 02 
: OF96 B4 FE ai OO FE O32 T4 FE 
+? @OF9S 03 6A FE 91 00 FE G1 EA 
: OFAG FE 01 OG FE O2 GF FE O1 
2 OFA BG FE O2 B4 FE 01 GG FE 
5. ER 





F6 changes sound of Ins#l 
F2 redefines tempo to $$C 
(n)FE play segments. 

F6 again redefines Ins#1 


ae 00 in the last position ends command 
: FE a3 =e 
: GFFS 23 FE 68 35 00 ae GO ao 





: 1988 84 GB OB GA GO GG 2G 74 — *Themusichas been transcribed into $ 
+: 1008 88 98 55 29 70 GB BB 15 ___ byteevents . 
: 1618 14 30 @9 61 @0 1@ 74 @Q __ The first byte is duration of anote, 
"> = = Other four are notes translated into 
numeric code. 


3 
What to play 


3 
Db 
c) 


o 2 98 O@ 30 F2 6D OO SD *The score has been cut into musically 
: 1080 QE 74 @@ BO 1D o2 ae aa meaningful segments, Only excerpts are 
-: 1088 80 90 o@ 20 F4 6C €3 SC shown here. A segment ends with a 00 in 
g) SECS: 28 9400 Oe 107 Le eee begins at $1006, ends at SIOBA. The 
second begins at S1OBB. Last segment 
* begins at $1738, ends at $I8AE. A zero 
+? 1728 2F S53 08 20 EB 00 GO 53 i SISAP tnd io the tomantnd string at 
: 1728 23 28 08 SA 13 26 28 63 SOFFC terminates the song. Segment 
at 30 addresses in FE commands are relative 

+: 1738 19 @0 68 Go 90 10 77 36 to SOFO0.@ 
: 1748 6 69 20 79 eo BO a9 30 





READY 


8032 Control Characters 


This table is a summary of the 8032 screen 
control functions. The ESC/RVS characters will 
display as lower/upper case or upper 
case/graphics, depending on which mode you’re 
in. POKE59468,X (where X = 12 for graphics, 14 
for lower case) still changes modes without 
changing the gap between the lines. Notice that 
complimentary functions differ by 128 using 
CHR$). See the Commodore BASIC 4.0 manual 
for details on functions. 














TEXT n 
SCROLL DOWN |153 shift y 
SCROLL UP 45 y 
SET BOTTOM 1143 shift o 
SET TOP 15 fo) 
INSERT LINE 149 shift u 
DELETE LINE 21 u 
ERASE BEGIN |150 shift v 
ERASE END 22 v 
SET/CLR TAB 137 shift i 
TAB 9 i 


The above describes the special 80 column 
screen control functions. The functions can be 
activated two ways; by using CHR$ (and the 
appropriate value or, preferably, by placing the 
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Control Function|CHR$ (value) ESC/RVS char. 
BELL F i g 
GRAPHICS 142 shift n 

14 





appropriate character in reverse field within 
quotes. This is done by entering quote mode, 
hitting ‘ESC’, then ‘RVS’ and the character. For 
example, to do a Scroll Down enter quote mode 
and type ‘ESC’, ‘RVS’, shift & ‘Y’ and RETURN. 
‘ESC’ takes you out of quote mode. If you wish to 
continue with more characters following the 
Scroll Down you'll have to do an OFF/RVS, 
another quote and DELete the quote. This is 
comparable to the cursor control characters but 
not quite so automatic. 

Although you could use the CHR$ (values, the 
ESC/RVS method saves bytes and will eventually 
become much more legible. After all, when was 
the last time you used a CHR$ (17) to do a cursor 
right. (oris ita cursorup?...oris 17 delete?... 
no, | think it’s cursor down... I'd better 
check... hmm). 

There is still another way to activate these 
functions without using PRINT. This is directly 
from the keyboard. But you say ‘’There is no key 
on the keyboard assigned to do scroll down or set 
top...’’. By pressing certain combinations 
simultaneously, the keyboard value that is passed 
to the operating system will be the CHR$ value 
that activates the function. Many combinations 
do the same functions. I’ve listed only the easiest 
ones to remember. 





CONTROL 

FUNCTION KEY COMBINATION 
TEX WHO KNOWS?! 
GRAPHICS BOTH SHIFT/’’ 

SCROLL 

DOWN LEFTSHIFT/TAB/I 
SCROLL UP PVS/TAB/I 

SET BOTTOM | Shift/z/A/L 

SET ‘TOP Z/A/L 

INSERT LINE | Shift/RVS/A/L 

DELETE LINE RVS/A/L 

ERASE BEGIN |Shift/TAB/leftarrow/DEL 
ERASE END /TAB/leftarrow/DEL 
SET/CLR TAB |Shift/TAB 

TAB TAB 


The space beside TEXT is empty because it 
hasn’t been found yet. If anyone does, please let 
me know. 

The window can also be POKEd to size. The 
pokes are: 

Screen TOP: 224,T where T=0 to 24 
BOTTOM: 225,B where B=T to 24 
LEFT: 226,L where L=O to 79 
RIGHT: 213,R where R=L to 79 

I’m not sure what weird or interesting effects 
you can get by making TOP less than BOTTOM or 
LEFT greater than RIGHT. Try it and see! 


Give your PET a home.... 
Buy it a PETDESK! 


A Commodore approved product. 
Specially designed to take any Commodore Pet system. 


Black leathercloth top and Black metal frame. 
Paper feed tray, top extension shelf. Concealed 
cables and 4 way 13 amp plug socket. 

Mounted on castors. Size 1470 x 560 x 675 mm. 
Delivered flat packed. 


Price £189.50 includes VAT and delivery. 
This offer available UK only. Cheques with order to: 
Tirith Ltd, Pear Tree House, 


Woughton on the Green, Milton Keynes 
MK6 3BE. Telephone: (0908) 679528 


EPSON TYPE 3 PRINTERS 


Epson’s superb Type 3 series replaces the Type 2 
and offers: 

* IMPROVED PERFORMANCE 

* MANY NEW FEATURES 

* LOWER PRICES 

For free brochure and special Epson offer write to 
Datatech Ltd, stating your computer. 


MINI DISKS — BIG SAVINGS 


VERBATIM DATALIFE 53”’ 


MD525 S/Sided 40 Track £16.45 
MD550 D/Sided 40 Track £22.45 
MD577 S/Sided 77 Track £24.45 
MD557 D/Sided 77 Track £32.45 


Prices are per ten pack, excluding VAT. 


All disks are factory fresh, soft-sectored, hub re- 
inforced and certified 100% error-free. 


Please include UK p&p at 95p per pack, then add 
15% VAT to total. 


Send cheque/PO now to Datatech Ltd. 


DATATECH LTD, DEPT CC, FREEPOST, 
ALTRINCHAM, CHESHIRE, WA15 OBR. 


VACANCIES 


ENGINEER 


Computer Services Midlands is one of the 
Nation’s leading Commodore dealers in both 
computer sales and software development. A 
requirement has now arisen for a further 
engineer to operate in the East Midlands area 
maintaining the hardware of our many 
Commodore users. Preference will be given to 
an experienced engineer familiar with the 
Commodore range but full training is available 
by means of both manufacturer’s courses and 
our own engineering staff. 


An attractive salary based upon previous 
experience is offered together with company 
car and the chance to join the planned 
expansion of a young exciting organisation. 
Ask for Mike Ward when writing or 
telephoning. 


Computer Services Midlands 7 tm 


SOFTWARE DEVELOPMENT 


Our business software is already regarded by 
many as the finest on the Commodore range 
and with new products being continually 
added our requirement for quality software 
personnel continues. These include both junior 
and senior programmers and a department 
manager responsible for the efficient running 
of the department. Excellent salaries are 
offered in all cases together with a company 
car for the most senior position. 


Contact lain Caldwell or Peter Mart for further 
details. 


Computer Services Midlands Limited, First Floor, 
Refuge Assurance House, Sutton New Road, Erdington, 


Birmingham. B23 6QX. Tel: 021-382 4171. 
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Getting to Grips with Machine Code 


Assembly Language 

You may have thought that programming in 
machine language via the Monitor could really be 
a chore if you had to write a complete application. 
And you would have been correct, but at least we 
have a Monitor which conveniently allows us to 
type in a hex code at a certain memory location. 
Before our programming time, this wasn’t 
possible. On early machines, programmers had 8 
or 16 (or 32) toggle switches which could be set 
in one of two positions — on or off. To load an 
instruction, for instance a hex ‘’60”’ (return), you 
would first have to set the eight toggle switches 
in the binary representation of 60, then push a 
‘“‘load’’ button to load the code into the machine. 
Our simple program from the last article might 
take an hour to load! But let’s not dwell on the 
past, since higher level ‘‘english-like’’ languages 
have been developed for our use. 

Assembly Language developed because even 
though sophisticated monitors and keyboards 
were developed, it still was a chore to remember 
and code in actual hex (or binary or octal) 
instructions, or look at a “‘hex dump” of a 
program and be able to see what the program did. 
(| do understand though, that programmers still 
exist who can do this at will, but they are kept 
chained inside the old ENIAC computer). For the 
same reasons that higher level languages such as 
BASIC began to replace Assembler programming, 
Assemblers were developed to replace actual 
Machine Language programming. 

What is an Assembler? An Assembler is 
basically a program (which can be written in any 
language, even BASIC) that reads in a source file 
that contains lines of mnemonic instructions and 
‘‘assembles’’ each mnemonic instruction into its 
Machine Language equivalent. The nice feature 
about Assembly Language is that instead of 
having to remember all of the various hex forms 
of an instruction, you only have to remember one 
mnemonic. For example, the instruction to ‘‘Load 
the Accumulator’’ can be represented by *’A9”’ in 
the immediate mode, ‘“AD”’ in the absolute mode, 
““A5"’ in the zero page mode, and so on. In 
Assembly Language, the instruction is merely 
represented as ‘‘LDA’’ and the Assembler 
resolves which form the source line is 
representing. So you can see that writing in 
Assembly Language is much easier than hand- 
coding in Machine Language, yet it yields the 
same benefits. 
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If you turn now to the listing of the program 
accompanying this article, you will first notice 
that it is broken down into four distinct columns. 
The first column represents a line number which 
is arbitrarily assigned for reference purposes; the 
next column is the actual starting memory 
location at which this line of code will be loaded; 
the next column contains the actual hex code 
generated for that line; and finally, the actual 
Assembly Language source text. 

(If ever you should read about or come across a 
program written in Assembly Language that 
might be useful to you, and the author provides a 
listing such as the one with this article, then all 
you need do to implement it is to type in the code 
and assemble it. If you don’t have an Assembler, 
then simply go into the Monitor and begin typing 
in the code as listed in the third column, starting 
at the memory locations listed in the second 
column. When finished, do a Machine language 
““save”’ and you will have a copy of the program). 


Assembly Language Format 

Without actually worrying about what exactly 
this program does, let’s look at the program listing 
from a syntactical point of view. The first rule you 
will notice about this Assembler (Commodore’s 
Assembler Development System) is that a 
comment line begins with a semicolon (;). In my 
listings, | generally put a lot of comments, and 
since there is no overhead associated with it, | 
feel it is a good practice for you to do as you 
develop an Assembly Language program. 

The next portion of the program (lines 24-28) 
contains examples of the Assembly Language 
assignment statement. This statement allows 
you to assign a value to a variable (or label). If you 
precede the value with a ‘’$’’, then the 
Assembler assumes a hex value, otherwise it 
assumes decimal (this is true whenever referring 
to values throughout your programs). 
Hexidecimal is usually more convenient because 
most memory maps and other listings are in this 
format. By using the assignment statement (in 
the beginning of a program ONLY), you tell the 
Assembler to use the associated value every time 
it encounters that label in the program. For 
instance, line 30 assigns the hex value ‘‘0070”’ 
to the variable ‘‘chrget’’. If you look at the actual 
code that references this variable (line 47) you 
can see the purpose of the assignment statement 
is: 1) to make your program more meaningful and 


easier to read; and 2) to make it easier to change 
(if the value for ‘‘chrget’’ changes in the future). 
In general, assignment statements are used to 
refer to the memory locations of routines (or 
subroutines) that are either part of the operating 
system (as in this case), or some of your own 
routines. 

The next part of the program, lines 47-50, is 
the main routine which basically executes three 
subroutines. Notice that instead of specifying an 
exact location to ‘’jump to,’’ | have used the 
labels that were defined in the beginning. The 
label ‘‘aschex”’ is not listed in the beginning of the 
routine because it is actually part of this program, 
at line 57. Notice that the Assembler generated 
the address of ‘‘0344”’ for this label because, as 
line 57 specifies, the memory location that the 
routine or label ‘‘aschex’’ would begin at is 
““0344.”’ 

As you can see by now, labels within an 
Assembly Language program work similarly to 
their counterparts in BASIC and other high level 
languages. So one obvious advantage Assembly 
Language has over Machine Language is the fact 
that all ‘‘jump to’ and ‘‘branch to’”’ (as in line 61) 
addresses can be resolved for you by the 
Assembler. The next part of the program, lines 
57-82, is the actual routine which we will look at 
later in more detail. 

The final part of the program at line 88 
illustrates what is known as an Assembler 
directive. An Assembler directive is basically a 
command that tells the Assembler to perform 
some operation at ‘‘assemble time,’’ but it is not a 
part of the actual program. In this Assembler, 
directives must be preceded by a period (.). The 
““byte’’ directive in line 88 tells the Assembler to 
set aside one memory location, and in this case, 
put a hex ‘’O”’ there. In this instance, the memory 
location used is ‘‘0371."’ Notice that all the code 
that references the label ‘‘answer”’ (lines 59, 71, 
76, 79, 80) contains the address ‘’0371.’’ 


More Instructions to Work With 

Let me first give you some background on the 
accompanying article. If you have already paged 
through this issue, you may have noticed another 
article which describes a routine that allows you 
to program the cursor directly from BASIC, using 
X,Y coordinates. For example, to move the cursor 
to line 15 and column 40, you could type ‘sys 
address,15,40’’. The ‘‘sys’’ command cannot 
directly pass the parameters ‘’15’’ and ‘’40’’, so 
one of the functions of the “’sys routine’’ must be 
to accept these parameters. 

Sound easy so far, right? Well yes, except that 


when you code ‘’sys address,15,40’’, the 
number ‘’15’’ is actually represented as two 
characters in memory — hex 31 (for ‘’1’’) and 
hex 35 (for ‘’5’’). This is what is known as the 
ASCII character representation. If we want to be 
able to use the number ‘’15’’ as some sort of 
counter (of the number of times to cursor down), 
then we must convert the ASCII representation of 
““15’" to the actual numeric value. We will look 
here at the subroutine that does this. 

Still sounds easy, Right? Yes, except that this 
explanation overlooks one thing — how do we 
pull the number ‘’1’’ and the number ‘’5”’ from 
our BASIC statement. Well | won’t explain in 
detail how this works in this article, except to tell 
you that your PET/CBM already comes with a 
routine which will do this. This routine is 
referenced in my listing by the label ‘‘chrget’’, 
and when it is invoked (via the “‘jsr’’), the next 
character or token from the current BASIC line 
will be loaded into the Accumulator. And the 
pointer to the current character will be 
incremented so that it now points at the next 
character in the line. 

Now let’s look at the program. 


lraschex.sre......paqe 0001 


00001 0000 


00047 O33 20 70 00 
00048 033d 20 44 03 
00049 0340 20 70 00 
00050 0343 60 

4 











sta 
00077 0368 68 ole 
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00078 0369 18 cle 
% O86 


sta answer 





Lines 47-50 

This series of lines is the main routine of this 
program. When the ‘‘sys’’ command _ is 
encountered in your BASIC program or from 
immediate mode, control is passed to the routine 
starting at the memory address following the 
““sys.’’ In this case, the address is 826 or hex 
033a. The first thing the routine does is get the 
next character from the BASIC line. (The format 
for the ‘‘sys’’ parameter is: sys 826,x. When the 
routine is first entered, the character in the 
Accumulator is a “’,’’.) This routine will then load 
the Accumulator with the first (and maybe the 
last, if it is a single-digit number) digit of the 
number. 

Line 48 will then jump to the subroutine that 
converts the ASCII representation of the number 
to hexidecimal. Note that the first digit of the 
number is sitting in the Accumulator. We will 
explain the actual routine in a minute. 

Line 49 will jump to the subroutine that gets 
the next character in the line. At this point, the 





‘How About Kicking Off With a Good, Old-Fashioned 
Memory Dump?’ 
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routine has already extracted the final digit (if 
there was a second digit) and converted the 
number passed by the ‘’sys’’ command. Calling 
this subroutine and its parameters. We do this 
because the BASIC interpreter will resume its 
operation when the return in Line 50 is executed. 
The character in the Accumulator must, at this 
point, be the one following our ‘‘sys’’ command 
(perhaps a *’:’’). 


Lines 57-59 

This set of lines introduces us to three new 
instructions. The first instruction ‘‘sec’’ will ‘‘Set 
the Carry Flag.’’ This is done because of the 
nature of the ‘’sbc’’ or Subtract With Carry’’ 
instruction. The ‘‘sbc’’ instruction will subtract 
the value following it from the value in the 
Accumulator, placing the result in the 
Accumulator. If the resultant value is greater than 
or equal to O, then the Carry Flag will be set. If the 
result is less than O (i.e., if the value in the 
Accumulator was less than the value being 
subtracted), the Carry Flag is cleared. Because of 
the nature of binary arithmetic (two’s 
complement form), it is required that the Carry 
Flag be set when subtracting single precision 
numbers. For a more detailed explanation of the 
Subtract instruction, refer to the MOS 
Programming Manual or some other suitable 
6502 reference guide. 

Getting back to our subtraction, remember that 
the Accumulator already contains the ASCII 
representation of the first digit (or ‘‘tens’’ column 
digit for a 2-digit number). To find the actual 
numeric value of this digit, we must subtract the 
ASCII value of the character ‘‘O’’ from the ASCII 
value of the digit. The easiest way to do this is to 
use the immediate form of the Subtract 
instruction, which is represented by the ‘’=’’. (As 
was mentioned before, the Assembler will 
assume a decimal value unless specified). For 
instance, the number ‘’2’’ would be represented 
as ‘‘50”’ or in hex as ‘’32’’. By subtracting ASCII 
““O"’ which is actually ‘’48” or in hex, ‘‘30’’, you 
can see that the resultant value will be ‘‘2’’ 
(50-—48=2). So after preforming the 
instructions on Line 57 and 58, the Accumulator 
contains the actual numeric value of the first digit. 

Line 59 introduces us to the ‘‘sta’’ or ‘’Store 
the Accumulator in Memory’’ instruction. This 
command simply stores a copy of the value in the 
Accumulator at a certain memory location. This 
case illustrates the absolute form of the 
instruction in that the label following is an 
absolute location in memory. Remember that we 
defined the label ‘‘answer’’ at the very bottom of 


the program, so the value will be placed at 
location hex 0371. 


Lines 60-65 

Line 60 first gets the next character from the 
line and stores it in the Accumulator. This 
character can be the second digit of the number, a 
comma (if it is a one-digit number), or some other 
BASIC token. 

If the Carry Flag is not set (by routine ‘‘chrget’’) 
then we know that the character in the 
Accumulator is the ASCII representation of a 
number between O and 9. The “‘bcc”’ or ‘‘Branch 
on Carry Clear’’ instruction on Line 61 is another 
type of branch instruction that will branch to 
another point in the routine (in this case, ‘‘asc1’’, 
if the Carry is not set). If there is a second digit, 
this path will be followed. 

If the character is not a number between O and 
9, then we want to check to make sure it is a 
comma. Note that this check is up to you as a 
programmer (i.e., | have decided that one digit 
numbers must be followed by a comma). The 
“cmp’’ or “‘Compare the Accumulator with 
Memory”’ instruction on Line 63 compares the 
value now residing in the Accumulator with the 
immediate value of ‘’44’’ (‘‘44” is the ASCIl 
representation of a comma). The ‘‘cmp”’ 
instruction actually subtracts the value in memory 
(in this case, the immediate value ‘‘44’’) from the 
value in the Accumulator, but DOES NOT store 
the result anywhere. Depending on what the 
result of the operation was, one of three Status 
Flags will be set. The Negative Flag is set if the 
result is less than zero, the Carry Flag is set if the 
result is greater than or equal to zero, and the 
Zero Flag is set if the result is equal to zero. 

The “‘beq’’ or ‘‘Branch on Result equal to Zero’’ 
instruction in Line 64 will cause a branch to the 
end of the routine, ‘‘ascend’’ (Line 82), if the 
present character is a comma. If this is the case, 
the ‘‘sys’’ command only passed a one-digit 
number. If the character is anything else, the 
routine will jump to a routine that prints ‘’syntax 
error’’. This is done on Line 65. 


Line 67-69 

lf the character in the Accumulator is a number 
between O and 9, indicating a second digit, then 
control continues at Line 67. Lines 67 and 68 will 
again take the ASCII representation of the second 
digit, and subtract an ASCII ‘‘0O’”’ from it. The 
resultant value in the Accumulator will then be 
the actual numeric representation of the second 
digit. 

We have now converted the two digits down to 


their actual numeric forms. The first digit at this 
point is stored at the memory location labeled 
“answer’’ and the second digit is in the 
Accumulator. Now what? Well | now have to 
disturb the cobwebs of your mind by referring to 
some concepts that were taught in elementary 
school — those concerning the ‘‘tens’’ column 
and ‘‘units’’ column of numbers. To convert this 
number, we must first multiply the ‘‘tens’’ 
column by 10, then add the “‘units’’ column to 
that answer. 

But before going on to the instructions that do 
this, we first must save the second digit. | do this 
in Line 69 with the ‘‘pha’’ or ‘‘Push the 
Accumulator onto the Stack’’ instruction. What’s 
a Stack? The easiest way to explain a stack is to 
use the analogy of a ‘‘plate stacker’’ used in 
many restaurants. As clean dishes are brought 
out, they are placed in the stacker. When a dish is 
needed, it is taken off the top and the stacker 
pushes upward. The idea is that the most recently 
placed dishes are the first to be taken off. The 
Stack in the PET/CBM works the same way. The 
values placed on the Stack are the first to be 
taken off. The only thing that you must be careful 
of is to make sure that values are taken off in the 
proper order. 


Lines 70-77 

How do we perform a multiplication? The way 
I've chosen here is a technique known as the 
““successive addition’’ method. In other words, 
we start with O and add 10 to the result of the 
previous addition successively for the number of 
times specified by the ‘‘tens’’ column digit. For 
example, if our first digit is ‘’3’’, we perform the 
operation, 0+10(1st)+10(2nd)+10(3rd), 
which gives us 30. 

To implement this, we first perform the 
instruction ‘‘Ida’’ or ‘‘Load the Accumulator with 
the value in Memory’”’ as in Line 70. Again we 
have the immediate form of the instruction which 
in this case loads the value ‘’O”’ into the 
Accumulator. Next we load the X register with 
the value of the ‘‘tens’’ column to be used as the 
counter for the upcoming loop. 

We next enter the loop which starts at Line 72 
at label ‘‘asc2.’’ First, we set up for an addition 
operation by performing a ‘‘clc’’ or ‘’Clear the 
Carry Flag’’ instruction as on Line 72. This 
instruction resets the Carry Flag. We do this 
because the next instruction, the ‘‘adc’’ or ‘‘Add 
Memory to the Accumulator with Carry’’, will use 
the Carry Bit (if it is set) as part of the addition. In 
Line 73, we add the immediate value 10 to the 
contents of the Accumulator (which at this point 
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is O). The resultant value will be stored in the 
Accumulator. As in other operations, certain 
status flags will be set according to the outcome 
of the operation. For more information on this, 
refer to MOS Programming Manual. 

Line 74 will decrement the ‘‘tens’’ column 
value which we initially stored in the X Register. 
This is done with the ‘‘dex’’ or ‘‘Decrement the X 
Register’ instruction. Again, certain status flags 
will be set according to the outcome of the 
operation. 

If the resultant value in the X Register after the 
““dex’’ instruction is performed is O, the branch 
instruction on Line 75 will not be executed. If the 
value is still greater than O, the loop will be 
entered again at Line 72. You will notice that the 
number of successive additions is controlled by 
the value of the X Register or the ‘‘tens’’ column 
digit. When we fall out of the loop at Line 75, the 
value in the Accumulator will be the final result of 
the successive additions. All we need to do now 
is add the ‘‘units’’ digit to the value in the 
Accumulator and the resultant value will be our 
converted number. 

Line 76 stores the ‘‘tens’’ column calculation at 
location ‘‘answer.’’ Note that we have already 
stored the first digit at this location in line 59, so 
this operation will overwrite that value. The 
reason for this is simple. If the number to convert 
was only a single digit, then the value in 
“answer” is the converted value when we branch 
to the end of the program in Line 64. If the 
number to convert is two digits, then the value in 
answer can be overwritten. 

Remember that we originally stored the ‘‘units’’ 
digit on the Stack in Line 69. Now we need to pull 
it off, so we do this with the ‘‘pla’’ or ‘‘Pull top 
value off the Stack and place into the 
Accumulator’ instruction. Remember that if you 
are not careful to pull values from the Stack in the 
order that they were placed there, you could get 
yourself in trouble. Notice also that the Stack is a 
handy place to store values. 


Lines 78-82 

At this point, we have the ‘’tens’’ column 
calculation in location ‘‘answer’’ and the ‘‘units’’ 
column value in the Accumulator. All we have to 
do is add these two values together. Lines 78 and 
79 do exactly that. After the calculation is 
performed, we store the result of the addition at 
storage location ‘‘answer’’, and finally return to 
the main routine at Line 82. 


SUMMARY 
To summarize, the program first gets the first 
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digit from our BASIC line (Line 47). Once it has 
done this, it jumps to the conversion routine (Line 
48). This routine first converts the first digit 
(Lines 57-59) and stores it at ‘‘answer.’’ Then it 
gets the next character from the BASIC line (Line 
60) and checks to see if it is numeric (Line 61), or 
if it a comma (Line 63). If it is numeric, then it 
branches to the routine that gets the second digit 
and converts the number. If it is a comma, then 
we know it is only a one-digit number and so the 
routine branches to the end (Line 64). If it is 
neither of these types of characters, then 
“syntax error’ will be printed (Line 65). 

If it is a two-digit number then first we convert 
it to its actual numeric representation (Lines 
67-68). Then we set up to perform our 
successive addition using the ‘‘tens’’ column digit 
as the counter (Lines 69-71), do the actual 
addition (Lines 72-74), add the ‘‘units’’ value to 
that result (Lines 76-79), and finally, store the 
converted number at location ‘‘answer’’ (Line 
80). 

And that’s it. 
experiment! 

If you should have any questions or comments, 
please write to me via the Editor. 


Easy, right?? Have fun and 
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COMPUTER 3 


BRING TO YOU, NOW ON CASSETTE AND DISK 
GAMES OF THRILLS & SKILL FOR ALL THE FAMILY 


NEW PROGRAMS 


Best of Arcade brings together the three most popular Petpack games, 
Invaders, Cosmic Jailbreak and Cosmiads. These old favourites have been 
updated to run on 80-column machines also! 

MPD 121 BEST OF ARCADE £22.50 - DISK PACK 


Best of Treasure Trove gives you twenty of the best games from the 
Treasure Trove series, including four arcade-type games, Night Drive, Car 
Race, Breakout and Money Table! There are simulation games, brain- 
teasers and more, making this package the best value ever in games! 
MPD 122 BEST OF TREASURE TROVE £22.50 - DISK PACK 
Assembler Tutorial is an extremely well thought out cassette-based 
package which teaches Assembly Language programming. Now for the 
first time, you can sit at your computer and learn at your own speed with 
this self contained course combining lessons with hands-on practice! 
MP 124 ASSEMBLER TUTORIAL £50.00 


Resident Assembler for all PETs 
With excellent documentation and examples. 
MP119RAMP £22.50 


Disk Packs available in either 8050 - D8 format or 





3040/4040 - D4 format, Please state D8 or D4 
when ordering. ; 
Prices include VAT and P&P. 








PUB GAMES 


This latest disk package brings you five totally new games, never before 
seen on a PET screen! The programs will all run on 80-column machines 
also! 


DISASTEROIDS - Your mission - pilot your spaceship through the 
treacherous asteroid belt using your lasers to blast as many asteroids as 
possible. The PET version of the famous arcade game! 


STELLAR WARS - Your spaceship is being pursued by the fighter ships 
of the evil Empire. You must take control of the ship's laser cannon. Get the 
fighters in your sights and blast away. The future of the universe depends 
on your skill and accuracy. 

WAR! - You are the captain of the British torpedo boat. You must steer 
your ship through the minefield to-destroy the four shore bases. Unfortun- 
ately, you only have two torpedos at a time, so you must get through the 
minefield again to rearm. Prove that we still rule the waves! 

STAR FIGHT - The Alien Invaders are coming again! Control your laser 
cannon to blast their ships out of the sky and destroy their missiles and 
bombs. Accuracy and quick reflexes are essential. 

DEPTH CHARGE - Your mission - seek out-and destroy the enemy 
submarines. They are armed with mines which they release to float up at 
Sass Youmust control the position of yourship and fire your depth charges 
lo destroy as many subs and mines as possible without being hit. 


MPD 123 PUB GAMES. £22.50 - DIS 
These games ar; i nb sete nes een 


sa 


. . 


. MANUFACTURED AND DISTRIBUTED BY AUDIOGENIC LTD. 


AVAILABLE FROM GOOD DEALERS, OR DIRECT FROM: 


r\ Sle} lelei 4, |loms Aeme-10) @:i-mm.i 7-12) |) (Cem =) 121, ¢-m 
Tel: (0734) 586334 
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Interfacing 





Pet to Teletype Interface 


The interface described below was received 
from Lt. W. Hawes in Nova Scotia. Note: it will 
operate with 8 level TTY’s but not 5 level 
machines. 


Interface Description 

The cct. shown in Fig. 1 is a modification of an 
interface that was originally built to output to a 
TTY from the PET Parallel User Port. The problem 
with the Parallel port was that software was 
required to be resident in memory in order to 
output data and LISTing of programs was not 
possible since the operating system has control 
during a LIST. Clearly the way to go was from the 
IEEE 488 Port. 

The modification to output from the IEEE Port 
was based on a cct. by Prentice Orwell. Some of 
the features of my original cct, such as UART vice 
shift register and closk frequency from PET vice 
interface oscillator, were retained. 

My cct. is as shown in Fig. 1. It uses a + 5v and 
— 12v (originally only a dual supply UART was 
immediately available) for both the UART and the 
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20mA current loop. The cct. could be further 
simplified to a single + 5v supply as shown in Fig. 
2 by using a single supply UART such as the AVA 
— 1014A or equivalent. The 20mA loop could 
then be constructed using spare inverters on the 
4049's. 

As stated above, hardware is reduced by 
omitting the interface oscillator. PET itself 
supplies the 1760 Hz (16 x baud rate) UART 
clock frequency from CB2 on the parallel port. 


Circuit Operation 

Initialize: POKE 59467,16: POKE 59464,69: 
POKE 59466,51 (outputs 1760 Hz from CB2 to 
UART, tape I/O disabled) 

Operate: OPEN 4,4: CMD 4 (Printer primary 
output device — enter from keyboard to LIST or 
include in program to be RUN) 

Return to Screen: PRINT 4 (from keyboard or 
include in program) 
System Recover: 
correct tape I/O) 


POKE 59467,0 (restores 


PET IEEE 488/TTY 20mA 
CURRENT LOOP 
SINGLE +5V CURRENT SUPPLY OPTION 


FIGURE 1 


cB2 


OM 
GND N 
PARALLEL PORT PIN +e 


TTY 20mA 
CURRENT LOOP 


Basic Programs 


Weeny 


Reference the Weeny Word Processor 
published in your April/May issue, the idea is to 
good to leave in that state (aren’t they alll). 
Herewith an extension to allow disk I/O, and two 
utilities to improve the printing aspect. The 
program assumes 8000 series — sorry, but the 
window facility is used to avoid messing up the 
screen with ‘ready’’. etc (line 3000). 

The essential philosophy is retained, i.e. 
character by character processing in BASIC, and 
use of the screen editor to prepare text (the 8032 
is excellent for this — don’t forget the TAB 
feature). Instructions for the original carry over, 
i.e. use SHIFT and RETURN not just RETURN to 
move to the next screen line; leave line 1 blank for 
control; end the text with back arrow; to 
save/recall/print a screen page, home the cursor 
and enter ‘run’ and the RETURN key. All control is 
strictly alternative technology level: disk files are 
overwritten automatically if they exist — no 
warning; no file-not-found check; etc. 

When choosing ‘edit’ the program drops into 
BASIC, using the window as indicated above. To 
edit, first key HOME twice to reset the window. 

The two utilities provide better print facilities. 
One merges screen pages on disk into print 
pages; the other prints direct from disk instead of 
from the screen. Hence (typically) the three 
screen pages that make a print page can be 
merged and then printed in one go, instead of 
recalling to screen and then printing each of the 
three parts separately. To exit either of the 
utilities key RETURN on any prompt, or just 
SIOR: 

Lastly, the mystery of lines 14, 15, 17. These 
will be plain sailing to owners of POWER (which 
should be all PET programmers). With POWER on, 
SHIFT X deletes the current cursor line with scroll 
up, SHIFT Y creates a blank line with scroll down, 
SHIFT Z deletes to end of line from current cursor 
position. They are just three of the POWER 
keys/routines | use regularly, hence the strange 
line numbers. To use X, Y and Z in text key INST 
first. 


Yours 

Dr Peter Hartley — 

Stage One Computers Ltd 
21.6.82 





Hot @uite So Ween WF 


14 rem"y=§ 

15 rem"x= 

17 rem"z=B 

108 rem weeny word processor - pjh version 

158 gosub1680 print" Sg" :ifat="r"thenzaea 

206 openS,3:ifas="pP" thenopens 4 :print#d "2" 2 :gotosee 

256 opend,8,4,"8"+ds+" s"+p$+",s,u" 

308 ygeth#S,a$:ifas<>"N" thendaa 

318 1f4S="P"thenprint#d 

326 if4t="s"thenprint#4, at 

336 c lose4:c loseS:goto15@ 

408 printtd,a%;:ifas=chr$¢(13) andas="p"thenprint#4, "EI" z 

568 goto3ae 

1080 print" EMsgave or Beg int or Bmecall or Bemit"; 
1106 getat:ifat<>"s" andas<>"p" andas<>"r" anda$<>"e"then1 108 
1286 ifat="s"orqs="r"theninput"SEPage Name" s;p$:ineut"SEPrive #" st 
1256 ifat="e"thengosub3008 rend 

1388 return 

2086 print" s” :dopen#i, (ps) ,d(val (ds)? 

2186 yet#1,afis=stiprintas; :ifs=8then2190 


Merae Pease Ubi lit» 


100 rem weeny word processor - merge screen pages 

158 gosub1806:goto2606 

1666 input"SPestination Page Name" spSiinput"BDrive #" sds 
1166 dopen#l , (p$>) ,dCvaltd$>> ,wiifds=8thenreturn 

1266 dc lose#1 :goto1G60 

2066 input" SENext Merge-Page Name +21" sp#rinput"Eprive #" dt 
26 ifps="B" then3eaa 

2658 print"BBierging “ rdopen#2, (p$> ,dCvaltds>> 

2100 get#2,atisestrifat<>"N"thenprintel , as; 

2158 ifs=Gthen2160 

2208 dc lose#2:goto2000 

3088 dc lose#1:gotol1Sa 

ready. 





Preint Freom Disk UWti lity 


id0 rem weeny word processor - direct print from file 
156 gosub1608 :goto2006 
1686 input" SEPage Name" :ps:input"Eprive #" ds 
1368 return 
2968 print"Srinting Page" :open4,4:dopen#l,(p$>,dcvaltd#>) 
2108 get#l,atis=stiifat<>"N"thenprint#4d, as: 
2158 ifs=8then2160 
2268 dc lose#1 :c lose4: goto15a 
ready. 


‘It Wants a Squirt of Oil on that Squeaky Door Hinge 
Back There.’ 
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Basic Programs 


18 
26 
1 


n 


CAR RACE 


DIM A1(14),B1¢14>,01¢14>,GS¢5).BS¢18),MS¢14) 
X=32859 °G=1-R=8-S=0 
PRINT“ CCLRI 





30 FOR Z=1T014°READ A,B,C*A1(2)=A' B1CZ)=B‘C1(2)=C 

4G FOR D=1TO A:POKE X,42:X=%+B:NEXT D 

58 K=KsC 

SS NEXT 2 

60 DATA 20.1,46,3.41,-46,4,1,40,2,41,-1,2,40,-1,6,-1,-48,3,-41,48 
62 DATA 2.39,1,2,39,-40.4,-1,-48,.5,-41,48,12,-1,-48,2,-41,2,6,1,1 
79 FOR 2=1TOS-READ GS¢Z) ‘NEXT 

7S DATA 2.4,1.9,1.5,1.2-1 

89 FOR Z2=@T09:READ BS<Z>:NEXT 

85 DATA 8.6.15,20.25,36,40,59,88,.98 


96 
9 


FOR 2=1T014:READ MS¢Z> «NEXT 
DATA 70,78, 76.85.78, 70,35, 48,608,608, 78, 80,48,200 


160 D=10°GOSUB 5000 
195 PRINT"? TO CHANGE UP 


167 
118 
112 
114 
116 
126 
138 
206 


PRINT"4 TO CHANGE DOWN 
PRINT'S TO BRAKE 
PRINT" TO ACCEL 
PRINT"S TO START 

GET S#:IF S$="" his 116 
N=32859 Y=xX°S9=TI 
f=3°GOSUB 4000 

FOR 2=1 TO 14 


218 A2=Al (2): B2=B1¢Z) *C2=C1(Z) :MX=MS¢Z> 


220 
238 
248 


D=15°GOSUB 5600:°IF 2¢14 THEN PRINT"MAX SPEED AT NEXT BEND IS “i Mx 
FOR DL=1T0 A2 
D=16°GOSUB S800 °PRINT"GEAR=";Gi "REVYS="; INT(R); "MPH="; INT(S);"CCLJ 


FORZ2=1 TOS@@ : NEXT 


255 POKE %, 145°POKE ¥,42! =X: X=X+B2 
S508 GET N 


IF N=@ AND NN=@ THEN 550 
IF N=@ AND NN=1 THEN NN=@:GOTO 545 


516 IF N=7 THEN G=G+i°IF G>S THEN G=4:GOTO 620 


IF N=4 THEN G=G-1-IF GCi THEN G=1:GOTO 620 
IF N=8 OR N=5 OR N=2 THEN GOSUB 2000 

IF N=9 THEN GOSUB 3000 

NN=1°GOTO Sea 

GOSUB 4000 

IF 3¢2 THEN 605 

IF RC2006 THEN 660 

IF R=<12008 THEN S90 

IF R>14006 THEN 616 

OV=OV+1-IF OV>2 THEN 610 


D=17°GOSUB 5808-PRINT“CRYSIWARNINGLOFF] YOU HAVE OVERREVED" S=S-S/4 


NL=1°IF S¢20@ THEN NL=INT((208-5)/8) 
GOSUB 1000: D=18 GOSUB 5866:GOTO 650 
D=17°GOSUB SO0@:PRINT"CRYSIJYOU HAVE STALLEDLOFFJ" GOTO 6938 
D=17 GOSUB S@Q6:PRINT"CRYSJYOU HAVE BRAKED TO A STANDSTILLCOFF 
B=@'G=1 S=6:A=3°GOSUB 4006: GOTOS90 
D=17GOSUB S600 °PRINT"CRYS]YOU HAVE BLOWN UP” -END 
pains oom S806 :PRINT"CRVSICHECK YOUR GEARS": GOTO S90 

se 
X=) 
IF S 






x OR 14 THEN 699 


IF S><MX+NX/S>) THEN D=17°GOSUB S80: PRINT"CRVYS]YOU HAVE CRASHEDCOFF J" -END 


a GOSUB 5800 PRINT"CRVSJ'YOU HAVE SKIDDED & LOST SPEEDCOFF]" 
=S-S/3 

NEXT 2 

TS=(TI-399/60* TN=INT<TS/6@) 

TS=TS-CTMKEG> 


716 D=17 GOSUB Sea 
726 PRINT"YOUR LAP TIME WAS"; TM; "MINS"; TS; "SECS 
736 END 
1960 FOR L=@TONL :L1=SQR<NL> NEXT 
RETURN 


2086 IF N=& THEN VV=3 


2 IF N=S THEN v¥=2 


2083 IF N=2 THEN VV=1 

2005 B=B+VY A=0 

2016 IF B>9 THEN B=9 

2036 RETURN 

3000 A=A+1: IF ADI THEN A=9 

3810 Be@ 

3820 RETURN 

4000 S=5+(A#3. 2#65(G))-BS<B)-$/28 
4010 R=S#6S(G)#61 


RETURN 


5006 PRINT" CHOME) 

SOS IF D>16 THEN D=D-1'ML=1 
S616 FOR Di=1 TO D 

5014 PRINT 

S616 NEXT 

S617 IF ML=@ THEN 5620 


BUMBLE BEE YIC 26 





REM PET BENELUX 


3.42 PRINT Sm wee BUMBLE SEE #46 ale 


HIT Shy KEY TO STOPS 
POKEHA. 12° POKEVL, 3 
RESTORE 
FobO=1To1ee0e 
PERDPITCHS 
GETWS IFWSC>" "THEN 100 
IFPIS="N"THENO= 10000 
IFPI$="R"THENNN=0 
IFPI$="0" THENNK=135, 
IFPI$="DE" THENMN=143 
"DY THENRN= 147 








‘GF "THEN =167 
IFPIS="6"THENXX=175, 
TEP I$="AF“THENXX=179. 
IFP18="A" THENNX=183 
TFPI $="BF “THENXX=187, 


Q IFPIS="BYTHENXN=191 


IFPI="D1" THENXM=201 
IFPIS="EF |“ THENXX=283 
IFPIS="E1"THENXX=207 
IFPI$="F 1" THENXN=209 
IFPI $="GF 1" THENXX=212 
IFPI$="G1"THENXX=215, 
IFPI$="Al “THENXX=219 
IFPI$="BF 1" THENXX=221 
IFPI$="B1"THENXX=223 
IFPI $="AF i" THENNX=217 
IFPIS="C2"THENXX=225 
IFPI$="DF2" THENXN=233, 
IFPI$="B3"THENKM=140 
IFPI$="D2"THENXX=228 
POKEV1, Xx 

PRINTPIS" “) 

REM FOR PP=1 TO 24°NEXT 


NEXT 
DATAR, E.EF,D.DF.C.F,.£,EF 
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S70 DATAE EF. D. DFC. DF. D,EF 

S80 DATAE.EF,D,0F.C,F.E,-EF 

596 DATAE EF. D.DF.C.DF.D,EF 

660 DATSE.EF.D,DF.C.DF,C,B3 

610 DATAC, DF, D,EF.E-F 

628 DATAE.EF,D,DF.D,DF.C, BS 

630 DATAC. DF. D,EF,E.GF.G. AF 

649 DATAR.AF.G, GFF, BF. A, AF 

659 DATAR.AF,G,OF.F.GF.G, AF 

660 DATAR,AF,G, GFF. BF. A. AF 

670 DATRA,AF.G,GF.F.GF,G.AF 
680 DATAR.AF.G,GF.G,GF.FE 

690 DATAF,GF.G.AF.A,BF.A,AF 

796 DATAR.AF.G.GF.G.GF,F.E 

710 DATAF.GF,G.AF.A,BF.A,AF 
728 DATARL.AL-A. B.A, BFA, BF 
73 DATABF1. BF1.A,BF.A.BF.A. BF 
74 DATARL.Al,A,BF.A, BF, A. BF 
759 DATAEF1, BF1,A,BF.A,BF.A, BF 
768 DATARI.AL.8, BF, BFi,BF1,A, BF 
778 BATAAL BF BFL + ER -BL BF «Ca, BF 
7388 amag 1,H)B,BF.A, BF, B,H,0Fi+H,B, BF 


790 DATADL,D1,D, 
898 DATAEF1,EF1, 
$10 DATAD1, D1,.D, 
828 DATADI.Di.D, 


F1-EF1,D,EF .D,EF.D, EF 
Di, EF .EF1-EF,£1,EF.F1.EF 





DATEL, R RUR-R-RURLR 

DATAC. DF, D.EF.E.F.GF.G,AF,A,BF,B,H,DF:,D1.EF1 
DATAE1,F1,£1,EF1,E1,F1,€1,EF1,€1,EF1,D1 .DFi,H.F1.E1,EF: 
DATRE1,EF1,D1,DF1,H,DF1,D1,EF1,€1,EF1,D1. DFi.D1 EFL 
DATAE1,F1-E1,EF1,€1,F1,E1,6F1,€1,€F1,Di DF1,H.71 £1.€F1 
DATAE1,EF1,D1,DF1,H, DF1,D1,EF1,61,EF1.01.DFi,D1.EF1 
DATAE1,EF1.D1.DF1,D1,DF1,H.B,H.DF1.D1-EF1,£1.F1.E1,EFt 
rt DATAE1.EF1,D1,DF1,D1,DF1,H,B,H,DF1,D1,EF1,E1,GF1,G1 AFL 
1930 DATAAL.AF1,G1,GF1,G1,GF1,F1,E1,F1,E1,EF1,D1, DF1,4, 3, 3F 
{048 DATAR.A,R.R.E,-,GF,.G,AF,A, BF, B,H,DFL,D1,EFL 

1059 DATAE.F,GF.G.AF.A,BF.B.H,DF1,D1,EF1 
1960 DATAE!,GF1,Gi.AF1,A1-A1,R,R-R-R-R-H 
1878 DATAAL.R,R,R-RLR,R, 2,9, A,A-APRAR ROR 
1980 DATAN 

1898 GOTO1Sa 

1100 POKEHA,@- POKEY1,0:POKE36879, 27: PRINT": 
READY. 





END 


VIC FOR THE BIRDS 


1 ViC=9#1613 POKE VIC.11 PRINT"Z" PRINT 
2 PRINT’ @ DEMONSTRATION OF" 

2 PRINT” USER-DEFINED” 

4 FRINT" CHARACTERS AND REAL~" 

3 PRINT” fIME ANIMATION; “ 

= S@INT" ADOPTED BY PBE-NL SMPBORDBBDBBIE BOE Ar) 
> FORT=1706000 NEXT I 

9 Vits7630 

10 CHV! 


23 For aaa To 506 
1 POKE YM+A,O 

40 POKE CHYB+A, 1 
50 NEXT A 

60 FOR A= TO 7 
20 POKE CMFA.O 

T! NEXT A 

72 FOR A=@ TO 7? 
TS POKE CM+Sé+A, 16 
74 NENT A 

7S POKE VIC+S, 258. 
80 POKE CM+62,56 
$1 POKE CM+48,24 








98 POKE CNYB+30,7 

91 POKE CNYB+31,7 

92 POKE CNYB+32,7 

93 POKE CNYB+67.1 

34 POKE CNYB+68,1 

95 POKE CNYB+69,1 

96 POKE CNYB+205.6 

37 POKE CNYB+206,6 

33 POKE CNYB+207,6 

99 POKE YM+30,1 

POKE ¥M4¢31,2 

POKE ¥M+32,3 

POKE YM+67. 

3 POKE YM+68,2 

POKE YM+69,3 

POKE YM+205, 1 

POKE YM+206,2 

POKE ¥M+267,3 

POKE CM+16, 126 

POKE CM+17,68 

POKE CM¢18, 153 

POKE CM+19,255 

POKE CM+20.255 

POKE CM#21. 126 

POKE CM+22,24 

POKE CM+23,24 

POKE VIC+15,239 

PRINT " SOMNUMDNCRiRDACeDMOMLAeDeDeDeDeTe 5 
PRINT" MACACACACACACACACACACAC" 
PRINT “HBACACASERECACABBCACEAC" 
PRINT" a@@ACRB@RCACACABACACEER” 
PRINT “#8@GACACACBGACACRCACHRG" 
PRINT“ ACACB@CACBRCACAGACBACAS" 


PRINT" Sti PRR RMMR ECE ECORBDBBBAN (C SNNMEERAEC’ 
PRINT" S000 S0RRRRRRRRBBE 0 DDD) 
FOR A=@ TO 3 


POKE ales 32+A,255 





POKE CM+42, 12 


NN 





READ C 

POKE CM+24+B,C 
NEXT B 

NEXT A 

FOR A=1 TO 7 








DDDDD MOSSE DOD SEED WE” 


332 FOR B=8 TO 7 

333 READ C 

334 POKE CM+S+B.c 
READ © 

336 POKE CM+24+B,C 
NEXT B 

333 NEXT A 


4 

365 FOR A=1 TO 12 
370 READE READC 
386 POKE VIC+12.8 
38S POKE VIC+14,15 
396 FOR X=1TO2S#C ‘NEXTX 
400 FOR =14 TO @ STEP-1 
491 POKE VIC+i4,¥ 

NEXT ¥ 


405 READ C 
406 FOR X=1 TO 2$#C:NEXTX 
NEXT A 


412 POKE ¥IC+12,0 

SOG PRINT * SAAS PORE EDR ' 
S5Q1 FOR X= 1 TO SO:NEXT-PRINT“ashaty: 
SO2 POKE VIC+14,i5 

518 FOR Y=1 TO 7 

529 GOSUB S99 


530 NEXT 

540 PRINT" MEMMaFa” 

S41 FOR X=1 TO 20:NEXTX PRINT" BERGE" 
S42 POKE VIC+13,173 

S43 FOR Y=15 TO @ STEP-1 SOKEVIC+I4,'¥°FOR X=1 TO 30:NEXT X°NEXT ¥ 
S44 POKE VIC+i3.0 

S45 FOR X=1 TO 20 NEXTX 

S47 FOR X=1_ T0780 NEXT 

$30 NEXTTT: FOR T= 1196000: 4ENT 2“ POKES6859, 249° RUN 

599 PRINT" M8" WRG 

608 POKE VIC+13, 240+ 

601 FOR X=1 TO 45:NEXT RETURN 

1006 DATA@,8,0,9,0,-9,0,3,3, 192, 15,248,112, 14, 128.1 

1610 DATAO,8,0,8,9,0,1,123,3,192,68,68, 192,3,3,3 

1028 DATAG,9,9,9,98,8, 1,128,153, 248,246.15, a y 8 

1038 DATA@,8,0,8, 1, 128,255,255, 1,128,0,8,9,8, 
1046 DATAG, 3, @, 0,240, 15, 15,240, 1, 128,8,8.8,.0 
1056 DATA, 0. 192,3,68,60)3,192,1,128,8.08,8,9 
1060 DATA129, 1,112, 14, 15,240,3,192,8,0,8,6,0 
1078 DATAI28, 1, 112, 14,15, 248.3, 192,8,8,0,0,8 
1980 DATAG,@. 192,3,60,68,3,192,1,128,0.8.9,8 
1090 DATAG.8,.8,8,249, 15, 15,249, 1,128,8,8,/3-8-0,8 
1100 DATAG,8,,0, 1,128, 255,.255,1,128,0,38,0,0,9,8 
1118 DATAG,8,6,0,8,8, 1,128, 15,240,240, 15,3,3,3,9 
1120 DATAO,G,0,8,0,0,1,128,3,192,68,68,192,3,3,9 
1130 DATAG,0,4,0,0,9,0,0,3, 192, 15,240. 112,14, 128.1 
2000 DATA 213,8,2,217,8,2,204,3,1,198,1,1,191,2,1 
2010 DATAI79, 3,2, 170-8,2,179,4,1,191-1, 1,198, 1-1-2153, 
READY. 





SPACEWAR PART 1 = ¥IC20 


186 POKE36879,27-PRINT*’2 YIC SPACEWAR” 
116 PRINT“ @eUST A edd EO 

140 X=PEEK(S6)~-2:POKES6, x POKES2, X* POKES! . PEEK(SS) -CL2 
150 CS=256#PEEK(S2)+PEEK(S1) 5=7680 
16@ FORT=CSTOCS+511 ‘POKEI, PEEK(1+32768-CS) ‘NEXT 
178 READY: IFX<OTHEN200 

180 FORI=XTOX+7 READJ “POKEI.J°NEXT 
198 GOTO170 

200 INPUT“ Mim =~ INSTRUCTIONS NEMMI" AS 
218 IFAS="N"THEN2O00 

220 PRINT"DWOU ARE ENGAGED IN A” 

230 PRINT“BATTLE TO THE DEATH" 

240 PRINT"WITH A KILL-CRAZED, ” 

250 PRINT"KAMIKAZE MINGON IN“ 

260 PRINT" THE ASTEROID BELT OF" 

270 PRINT" MONGO, 

280 PRINT"MVOUR SHIP IS PURPLE” 

290 PRINT"AND THE MINGON SHIP" 

300 PRINT“IS DARK BLUE,” 

316 PRINT“MTHE JOYSTICK CONTROLS” 
326 PRINT“YOUR DIRECTION. THE” 

338 PRINT"RED BUTTON FIRES YOUR” 

346 PRINT"LASER MISSILES. MAKE" 

959 PRINT"A HYPERSPACE JUMP BY” 

360 PRINT"PRESSING THE SPACE" 

380 PRINT"BAR." 

390 PRINT" PRESS ANY KEY" 

400 AS="" GETAS: IFAS=""THENSOO 

410 PRINT"SWOU LOSE THE BATTLE" 

420 PRINT"IF YOU:" 

430 PRINT" Ml ARE BLASTE BY A” 

448 PRINT" — MINGON’S LASER” 

450 PRINT“ MO ARE SUCKED INTO A” 

460 PRINT" BLACK HOLE® 

470 PRINT“M3 COLLIDE WITH AN” 


510 PRINT"S ARE RANMED BY THE” 

S2@ PRINT" THE MINGON SHIP" 

S30 PRINT" MPRESS ANY KEY" 

540 AS="" GETAS: IFAS=""THENS4O 

2000 PRINT") ENTER SKILL LEVEL" 

2616 PRINT" iM a1 TRIVIAL" 

2026 PRINT" @ To" 

2030 PRINT’ ® 998- IMPOSSIBLE" 

2040 AS="""GETAS: IFAS=""THENZO40 

2050 SL=VALCAS) : IFSLC1ORSLOSTHEN2Z000 

2068 PRINT“2) SPACEWAR OPTIONS” 

2116 PRINT" Mm SS8UN’S GRAVITY" 

2120 PRINT"@ @BSLACK HOLE" 

2130 PRINT"M NSD GRAVITY” 

2140 PRINT" MM SELECT ONE OPTION" G=0 

2158 AS="" > GETAS: IFAS=""THENZ150 

2168 IFAS="S"THENG=1 

2178 IFAS="B"THENG=2 

2186 POKES-2, SL *POKES-1,6 

2185 PRINT" MMJUST A FEW MOMENTS@™ 

2198 POKE198, 5: POKE631. 78‘ POKE632, 69: POKE633, 987 POKE634, 13) POKEE3S, 131 END 

9808. DATA7168, 192,240, 127, 103.34.54,63,58 

9816 DATA7176,4,14,62,227.227,62,14.4 

9828 DATAT184,50,63,54, 34,103, 127,248,192 

9838 DATA?192, 24, 24,608,36,102,231,126,24 

9846 DATA?208, 24, 126,231, 102,36,68,24,24 

9850 DATA7216.3, 15,254,230, 68, 108,252.76 

986@ DATA7224,32, 112,124, 199,199, 124, eg 32 

9870 DATA7232, 76,252, 168, ee 
8 





9871 DATA?249,0,0,12,28,56,-48,0 
9872 sehen a anes 12,8, 


9874 DATAr2¢4.0,0,0.22-62,0 8.8,0 

9908 DATA7296. 0,112,126, 182,32, 48.4 

9918 DATA7304,228, 18,37,68,36 Pate Se 
9320 DATA7312,6,48,48,32, 102,126, 112.8 
9938 ae aee cen see eernan ae weal 137.129 


8 
3978 DATAT3S2, 198033, 18- 96, 68, 37, 18,228 
9990 DATA7360,@,12,12,4,102,126,14,0,-1 


SPACEWAR PART 2 © VIC20 


1 C=22:R=23:S=7680 :A=30728 : DD=37154 °P1=37151 P2=37152 SL =PEEK 
2 POKES6879, 27: T=3:C¥=4:CE=6: CA=8:CS=7°CQ=6°CM=0°X=-1 G=PEEK 
3 ¥=36873 ‘S1=¥-2:S2=V-1 : DIMDCAC2,.2) .00%( 2,2) 
4 FORI=OT02 'FORJ=OT02 :X=X+1 DCC, J=XOCKCI, ID=X+16 NEXT I. I 
5S DEFFNACZ>=S+K+C#Y ° DEFFNB(Z)=PEEK(FNACZ>> DEFFNR(Z)=INTCRND( 1) #2 
6 POKEY-9, 255: PRINT"<28" | X=S+A:FORI=XTOX+505 : POKEX. T NEXT 
? POKES6879,62 :FORI=1T03+2¥SL : X=FNR(C) : Y=FNRCR> 
8 POKEFNACO) .46 *POKEFNACO>+A, CA NEXT 
9 _IFG=1THENX=11 °'Y=12° POKEFNAC@) . 20° POKEFNACG)+A.CS SX= 
Ae IFG=2THENSX=FNR(C) : SY=FNRCR> 

1 MBFNRCC) > Y=FNRCR) : IFFNBCO> C>32THENI 1 
2 DsX:E=¥ gilhy Meroe gto enue rave! 
13 ‘bree >» DO! ,0+1>  POKEFI +A, 
14 & FR CCS VePHRceS | IPEMBCOS SS SoTHEN TS 
15 Hex: L=¥'K=FNACO> -M=1  N=FNR(3>-1 
16 POKEFNAC®>, Lo Hy N¢1): POKEFNACG) +A. CE 
17 AS="":GETAS: IFAS=" “THEND=FNR(C) E=FNRCR) 
18 GOSUB7S TEEBTHENC=D: VeE -PXsU PY=0: GOSUB47 
19 B=O:F=0 “Fr etal 

THENB=—1 








23 IFB=GANDF=OTHENB=U:F=0 

24 UsB:O=F -IFG=STHEN28 

25 B=SX-D:F=Sy-E: J=SOR(BOB+F OF >: J=(20-3)/38: J=1-J03 
26 IFRND¢1)<CJTHENZS 

27 B=SGN(B) F=SGNCF) -D=D+B-E=E+FGOTOZ9 

28 D=D+U E=E+0 

23 IFECOTHENE=R 

30 IFESRTHENE=8 

31 IFD>CTHEND=0 

32 IFDCOTHEND=C 

33 X=D°Y=E J=FNBCO) * IF J=32THENSS 

34 IF J=460RJ=280RFNACO) =k THENSO 

35 IFX=SMANDY=SYTHENAS= "WERE SUCKED INTO A BLACK HOLE! ":wWC=WC+! GOTOT! 
36 POKED, 32:POKEQ+A,T'OsFNACO) POKED, DCZCU+1-Q+1) POKEO#A, CY 

37 320: IFFNRCS)>SLTHEN39 

38 N=D-H'N=E-L:M=SGNCMD  NeSGNCN) ° IFM=@0RN=GTRENT=i 

39 HeH+M>L=L+Nn° IFHCOTHENH]C 

48. IFHDCTHENH=0 

41 IFLORTHENL=0 

42. IFLCOTHENL=R 

43. XSH|Y=L = IFFNBCO) 32 THENM=FNR(3)~1 -N=FNR(3)-1: GOTOS9 

44 POKEK, 32° POKEK+A, T'KeFNACO) -POKEK, DCZ(Me1 Nei) POKEK+A, CE 
43 TFRND(1)<, 10R(J=1ANDEHR (9) SL )THENPHAM PY=N  GOSUBS? 


47 Ceneey POKEY, 8° IFZ=1THENJ=10 

48 IFZ=-1THENJ=9 

49 Pig ah Seal 
S50 IF2=OANDPY=@THENJ=12 
Si FORT@1T010:X=X+PX: Y=/+P¥ : POKES2, 230-1 
S52 IFI<>1 THENPOKEZ, 32 ‘POKEZ+A, T° IFX>CTHENX=0 
SS IFX<OTHENX=C 

S4 IFYORTHENY=0 

SS IFYCOTHENY=R 

S56 B=FNB(@) - IFB=32THENSS 
Ss? US ee pe te er La NEXTI ‘GOTO6S 

SS Z=FNACG) *POKEZ, J: POKEZ+A,CM:NEXTI 

59 POKEZ,32:POKEZ+A, T: POKEY.@: RETURN 

60 POKES2,230:SC=x-1 : IFSCCOTHENSC=@ 

61 FC=X+1° IFFC>CTHENFC=C 

62 SR=V-1> IFSRCOTHENSR=O 

63 FR=V+1 > IFFRORTHENFR=R 

64 FORX=SCTOFC : FORY=SRTOFR * J=OC%<(X-SC, Y-SR> 

65 POKEFNA(@> , J: POKEFNACO) +A, CO: NEXTY, x 

66 POKES! ,220:FORJ=15TO@STEP~1 °POKEV, J: FORJ1=1TOSO°NEXTJ1. J 

7 POKEV, 8: FORX=SCTOFC : FORY=SRTOFR : POKEFNACG) , 32 POKEFNACO) +A, T NEXTY. % 
68 IFPEEK(Q)=32THENAS="WERE VAPORIZED!" -WC=WC+1 GOTO71 

69 BN att al dia cat GoTo? 


71 Pome 9,248 prlesiee waind 
INT*MMSCORE§ VIC"; WC3" YOU"; WH 
eee NEXT GOTO78 


72 PR 
73 
74 
75 POKEDD, 127° P=PEEK<P2)AND128: JO=-(P=@) -POKEDD. 255 
76 P=PEEK<P1>: Ji=-<(PANDS)=@) : J2=-< (PANDI6)>=0) 

77? J3=-(¢PAND4>=@) ‘ FB=—<(PAND32)=@> ‘RETURN 

78 IFWH=STHENS1 


‘06 
2 PRINT" CONGRATULATIONS!“ 
82 GOTOS4 
$3 PRINT"TO BAD* 
84 FORJ=1T01600 NEXT RUN 
READY. 


BLACKBOX 


18 REM*O*O*BLACK BOXOOHO 
28 REMee ” 


168 PRINT“CCLRI CRVSJBLACKCOFF] CRVSIBOXCOFF)” 
116 PRINT“C4CDITHIS IS THE GAME OF BLACK BOX, THE GAME” 
126 PRINT"CCDJOF DEDUCTION BY WADDINGTONS. YOU WILL" 
130 PRINT"CCDINEED THE STANDARD RULES OF BLACK BOX" 

14 PRINT"CCDITO PLAY, THE COMPUTER GENERATES RANDOM” 
15@ PRINT"CCDIPATTERNS OF ATOMS. HOW MANY ATOMS” 

166 INPUT"CCDIWOULD YOU LIKE IN THE FIRST GAME" :Z 

176 REM#O# INITIAL IZEO@* 


216 [afl ch sort il DIMP<9,9> 


220 
230 REM#®CLEAR ARRAY,LOAD RAY NUMBERS#® 
248 FORX=GTOS ' FORY=OT09 : P(x, ¥)=8 > NEXTY. & 
250 FORY=1T08 PCG, Y)=¥ PCS, ¥)=25-¥ “NEXT 
266 FORM=1T0S : P(X, 8)=33-X ' P(X, 9)=X+8° NEXT 
278 PLACE RANDOM ATOMS#e 
oo FORI=1T0Z 

298 RXCI>=INTCSPRND(1 +1 RYCID=INTCO@RNDC1 +1) 
306 IFPCRXC I). RYCI) )COBTHEN2Z9O 
310 PCRKCTID RYCI)9=99° NEXT 
328 REM#PRINT DISPLAY DURING BLANKING® 


366 FORJ=1709:PRINTLS; ‘NEXT ‘PRINT 
py FORJ=1TO9:PRINTMS; «NEXT: PRINT“—" “NEXT 
336 FORJ=1T09:PRINTLS; ‘NEXT 
398 PRINT" CHOME.CR, 2CDI1CCL,2CDI2Z{CL, 2CDISCCL, 2CDI4(CL. 2ZCDISCCL,2CD)" + 


mca PRINT"6CCL,2CDI7ECL, 2CDISl2CD, 2CRISCCRILOCCRILILCRILZECRIISLCRII4(CRIISLCRI 
16" 


400 PRINT" CHOME, SCRISZCCRISILCCRISOLCRISICCRIZBLCRI27CICRIZECCRIZS" 
410 PRINT" CHOME)" -LEFTS<AS, 27>; “E2CDI24{2CD. 2CL J23L2CD, 2CLI22E2CD, 20L 1". 
415 PRINT"21(2CD, 2CLJ20C2CD, 20. 119 2CD, 2CL J1S€2CD, 20.1170 2003" 
428 REM USE WITH CAUTION: POKESS409.68 

438 REMGeSINPUT OPTIONGS® 

440 PRINT" CHOME" ;LEFTS(D$,20>;"DO YOU WANT TO 1>INPUT A 2A" 
458 INPUT" 20SEE THE ANSWER"; R 

460 IFR=10R@*2THENSSO 

476 PRINT“PLERSE ENTER 1 OR 2"; GOTO440 

486 GOSUB1356 

496 ONRGOTOS@S, 1250 

S08 REM###INPUT RAY NUMBEROH 

S1@ PRINT" CHOME )" ;LEFTS$(D,26); > INPUT"RAY NUMBER” ;G 
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Basic Programs 


528 IFGCIORG>S2THENPRINT"NOT A VALID RAY" GOSUB135S9-GOTOS1a 
536 N=INT((G-1)/8)41 

540 ONNGOTOS6S.660,769 .860 

S5Q REM#**LEFT TO RIGHTHO* 

S66 X=0:¥=6 

S7@ IFPCX+1, ¥)=99THENSER 

S86 IFPCX+1. 4-1) =99ANDP(X+1, 'Y+1 =S9THENIOSO 

S9G IFPCX+1,Y-1)=99ANDX=6THEN1OSO 

608 IFP(X+1, +1 )=99ANDX=QTHEN1 G50 

610 IFPCX+1, 4-1 >=99THENS7O 

620 IFPCX+1, +1 )=99THEN67TO 

630 X=X+1 © IFX<C>STHENS7O 

649 GOTO1120 

650 REM#R*BOTTOM TO TOP##® 

660 %=6-9 «Y=! 
678 IFPCX,Y-1)=99THENS6O 

636 IFPCX-1,''-1)=99ANDP(X+1 , 1 =99THEN1059 

690 IFPCX-1,-1>=99ANDY=39THEN1@5@ 

700 IFPCX+1.'Y-1)=99ANDY=9THENIOS@ 

716 IFPCX-1,¥-1)=99THENS7O 

720 IFPCX+1,'¥-1>=99THEN779 

738 Y=''-1 IF 'YC>OTHENG7O 

746 GOTO1126 

756 REMRAARIGHT TO LEFT Om 

760 X=9:'=25-6 

778 IFP(X-1.'4)>=99THENS6O 

780 IFP<X~1.'-1>=S9ANDPCX-1, +1 )=99THENIGSO 

796 IFP¢X-1,'¥~1)=99RNDX=9THEN1O5@ 

800 IFP<X-1,''+1)=99ANDX=9THENIGSO 

816 IFP<X-1,¥-1)=99THENS73. 

820 IFPCX-1,'¥+1 )=99THEN67O 

838 X=X-1° IFX<SOTHEN?77@ 

848 GOTO1120 

850 REM##*TOP TO BOTTOMMee 

866 X=33-6°Y=8 

870 IFPCK, +1) =99THENIER 

880 IFPCX-1,4+1)=99ANDPCX+1, +1 >=99THENI OSG 

890 IFPCX-1,%+1)=99ANDY=OTHEN1O56 

900 IFP(X+1,’+1)=99ANDY=OTHEN1GS@ 

916 IFPCX~-1,¥+1)=99THENS7@ 

926 IFPCK+1,%+1)=99THEN778 

938 Y='+1 © IFYCOSTHENS7O 

946 GOTO1120 

950 REMWHABSORBED RAY HHH 

966 S=S+1 :GOSUB1390° PRINT" CHOME]" ;LEFTS$(D$,20); "RAY WAS ABSORBED" 

976 ONNGOTO980 .990 ,1006,1010 

986 PRINT" CHOME]" ;LEFTS(D$,2#G);" CRVSJ@COFF)" GOTO1020 

998 PRINT" CHOME)" ;LEFTS(DS, 18); LEFTSCAS,3¥(G-9));" CRYSIJ@COFF)" :GOTO1020 
1060 PRINT" CHOME)" ;LEFT$<D$,2#(25-G)) > LEFTS(AS,27);" CRVSJ@COFF)" GOTO1020 
1610 PRINT” CHOME]"; LEFTS(AS,3#¢(33-G)>;" CRYSIJ@LOFFI” 

1628 FORI=1T03000°NEXT 

1836 GOSUB1350:GOTO430 

1040 REM#A#REFLECTED RAYS 

1050 S=S+1 :GOSUB1380:PRINT“CHOMEJ" ;LEFTS(D$,20>;"RAY WAS REFLECTED” 

106@ ONNGOTO167@, 1626. 1090, 1100 

1678 PRINT" CHOME)";LEFTS$<(D$,206);" CRYSI#COFF J" GOTO1119 

1686 PRINT" CHOME]" ;LEFTS$( DS, 18> ;LEFTS(AS,S#(G-S));" CRYSJ#COFFI" GOTO1110 
1696 PRINT" CHOME]"; LEFT$<D$,.2#(25-G));LEFTS(A$,27);" CRYSI®COFF)" GOTO1116 
1186 PRINT" CHOME)" ;LEFTS(AS,3#(33-G>);" CRYSI#COFFI" 

1118 FORI=1103000 ‘NEXT : GOSUB1 350: GOT0430 

1120 REMMe#RAY EMERGESHAK 

113 S=S+2: B=B+1 ‘ GOSUB1 380: PRINT" CHOME]" ;LEFTS(D$,20); "RAY EMERGED AT ";PCX,'?) 
1146 IFX=@THEN1170 

1150 IFY=@THEN1 180 

1166 PRINT" CHOME)" ; LEFTS<AS, 34%); LEFTS(DS,26Y>;" "; MIDSCBS,B, 1) GOTO1196 
1178 PRINT“ CHOME]" ;LEFTS(D$,2#Y);" "; MIDSCBS,B,1>-GOTO1190 

1198 PRINT" CHOME)" | LEFTS<AS, 3#X);" "i MIDSCBS,B,1> 

1198 ONNGOTO1200, 1210, 1220, 1230 

1206 PRINT" CHOMEJ” ;LEFTS(D$,2#G>;" "i MIDS(BS,B,1> GOTO1240 

1210 PRINT" CHOME]" ;LEFTS( DS, 18>; LEFTS(AS.3#(G-S)>;" "J MIDSCBS.B, 1» GOTO1246 
1226 PRINT" CHOME}" ; LEFT$(DS.2#(25-G));LEFTS(A$,27>;" "; MIDSCBE.B,1> GOTO1240 
1230 PRINT" CHOME)" ;LEFTS<(AS,38(33-G));" "“;MIDS(BS,B,1> 

1240 FORT=1T03000: NEXT  GOSUB1 350° GOT0430 

1250 REM##*PRINT ANSWER, FINAL SCORE # 

1256 FORI=1T02° PRINT" CHOME]" ; LEFTSCAS.RX¢1)#3); LEFTS(DS,RYC1) #2); “e" 
1278 PRINT" CHOME)";LEFTS$(D$,26>;"HOW MANY DID YOU GET WRONG"; 
1280 INPUTW 

1298 S=S+S#i : GOSUB1350 

1300 PRINT" CHOME)"; LEFT$(D$,2@); "YOUR FINAL SCORE WAS ";S'°RT=RT+S‘GT=GT+1 
1316 INPUT"C2CDIANOTHER GAME (Y/N) "RE 

1320 IFLEFTS(RS, 1)="N"THENI390 

1330 INPUT"CCDJHOW MANY ATOMS"; 2:GOTO220 

1346 REM#4##CLEAR BOTTOM OF SCREEN## 

1356 PRINT“ CHOME)" ;LEFTS(D$.19); 

1360 FORI=1T0200:PRINT" "> “NEXT: RETURN 

1370 REM##4*PRINT SCOREQH 

1380 PRINT" CHOME)";LEFTS<AS,30>;LEFTS(D$.5);"(RVSISCORELOFF]";S* RETURN 
1398 REM#WORK OUT FINAL AVERAGE See 

1400 AV=RT/GT 

1418 PRINT"CCLRIYOUR MEAN SCORE WAS:";AY 

1426 PRINT“ CCDJYOU PLAYED: “;GT; “GAMES” 

1438 IFAV>2QTHENGS="POOR! 1" 

1440 IFRYC=20THENGS="FAIR" 

1456 IFAYCISTHENGS="ABOUT AVERAGE" 

1466 IFAY: cb Lie a al 















1476 IFAYCIOTHENGS="EXCELLENT!!" 
148 PRINT“ CCDIYOUR PERFORMANCE WAS ” 
1496 END 
READY. 


DISK CHECKER = JIM BUTTERFIELD 


1@@ PRINT“DISK CHECKER - JIM BUTTERFIELD" 
118 DIM AC255)»CX¢77,28), DAC 1) NSC 224), TH(224, 1), SHC224,1) -LNC224>,RAC77) 
128 DAC@)=58: D4(1)=42 : Z$=CHRE(O) 
138 DATA 1,17,20,24,19,38,17,35,16 
148 DATA 65,17,28,24,18,38,17,35,16,8 
ere UU el Ne DAES GET 
68 BS=CHR$<17>: Hosped  ba F IFD$="S"THENDS="0" ' BS=CHRE(3> 
158 IFD$<>"@"ANDD$<>"1"GOTO168 
180 OPENS. 8, 15, "1"+D$:GOSUB3020 
198 OPENS, 8,3, "$"+DS: GOSUB3020 
208 AG=1 :GETHS, A$ = A=ASC(AS+Z$> 
210 READAI : IFA=A1GOTO2Sa 
228 Fu=Fx+1: IFFX=3G0T0290 
23@ READAI : IFA1=6G0T0210 
248 GOTO238 
258 READAI : IFA1=960T0270 
268 READB1 = FORJ=AQTOAI :RX¢J>=B1 ‘NEXTJ“AG=J GOTO2ZSe 
278 IFA=1ORA=6STHEND!=1 © T9=35 pelipe DI=18 
288 IFR=67THEND1=257 : T9=77 'S9=4 :D9=39 
298 IFTS=@THENCLOSE3:PRINT"?? DISK NOT RECOBNIZED 22": STOP 
308 REM GET AND PRINT BAM 


398 A=AZ: TisTisD1 - Ki=k1+1 :NEXTL,K: PRINT 
488 IFTICOCTHENPRINT"?"; 
418 NEXTJ 


428 REM BO SPECIFIC JOB 
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T=D9:S=1 


GOSUB2068 

FORD=2TO2SSSTEP32 : IFACD)<128G0TOS90 

D3=D3+1 : TH(D3, 8) =ACD+1> :S2¢D3,8)=ACD+2> ‘LX D3)=ACD+28)+ACD+29) #256 
IFACD)=132THENT%( DS, 1 >=ACD+19) :S2(D3, 1)=ACD+20) 

N$="" : FORK=D+3TOD+18 - N$=N$+CHRECACK)) “NEXTK *N#CD3)=NE 


T=AC8) : S=AC1) : IFT=D9GOTOS46 

FORD=1TOD3 :L%=0 

PRINTN$(D>; 

T=THCD, 8) ‘S=SxCD, 8) 

IFT>TSORSCOTHENT=0 

IFTC1ORS>R“CT)THENPRINT" BAD CHAIN" :GOTO770 
IFCX(T,S)=1THENPRINT” UNALLOCATED BLOCKS" :GOTO770 
IFCKCT, S>>2THENPRINT" CONFLICT ";NSCCXCT,S)-1><GOTO77a 


680 CxCT,S)=14D 
GOSUB3860 


S888389888 


PE EEP EST 


L%sLu+1 

FORJ=@TO1 = PRINT#15, "M-R" | CHRS<J); BS:GET#IS, AS 

ACID =ASCCAS+Z$> *NEXTI 

T4=T : S4=S*T=ACO : S=AC1>: IFTOO@ANDE=8G0T0640 
T=THCD, 1)? S=SKCD, 1> = TACD, 19=: IFT<>BGOTO64O 
TFL2OL2% (D> THENPRINT" INCORRECT BLOCK COUNT" GOTO770 
nL odeathcct 


PRINT : PRINTD3; "FILES" :GOTO01276 

REM SCAN SECTORS 

IFFX=OTHENPRINT"SORRY .. CAN’T DO IT" :GOTO1270 
FORT=1TOT9: PRINT" TRACK" T 

FORS=@TORZ<T> 

PRINT" CCU, 18CR] SECT";S 

GOSUB3808 


NEXTS 
PRINT" CCU, 26SPC,CUI" 
NEXTT 

PRINT"DISK OK" :GOTO1276 
REM UNSCRATCH 


K=@:PRINT"I WILL LOOK FOR DISCARDED FILES..." 
T=D9:S=1 


GOSUB2000 

FORD=2TO2S5SSTEPS2 * IFACD><>BORACD+1 =@G0T0968 
IFK=@THENPRINT"DO YOU WANT TO RECOVER: " 

GETX$  FORK=D+3TOD+18=PRINTCHRECACK) >; “NEXTK!PRINT"? "5 
GETX$* IFXSC>"Y"ANDX$<D "N"GOTOSER 

PRINTX$: IFX#="¥"GOTO1618 

NEXTD 


T=AC@) * SeAC 1): IFT=DIGOTOS28 


1006 PRINT" THAT’S ALL “:GOTO1276 

1010 T6=T :S6=S: D6=D - T=ACD+1 > S=ACD+2) 'LX(O)=ACD+28) +A(D+29) #256 "LX=O 
1628 GETX$'PRINT"IS THIS FILE:" 

1836 PRINT" 1. SEQUENTIAL” 

1848 PRINT" 2. PROGRAM" 


1060 IFACD+19)=8G0T01088 

1078 PRINT" 4. RELATIVE" 

1888 PRINT" WHICH NUMBER? "; 

1096 GETX$: IFX$=""GOT01098 

1100 X=ASCCX$)-48: IFXC1ORX>4G0T01090 

1116 PRINTX$: X=X+128 

1120 IFX=132THENT%(@, 1>=ACD+19) °S4¢B, 1)=ACD+20) : IFTX(@, 1)=8G0TO1020 
1138 IFT>T9ORSCOTHENT=0 

1148 IFTCLORSDRACT>THENPRINT” BAD CHAIN!" :GOTO1260 

1158 IFC%CT,S)=GTHENPRINT" ALLOCATED BLOCKS!" :GOTO1266 

1168 GOSUB3006*L%=LA+1 

1178 FORJ=OTO1 :PRINT#1S, “M-R"; CHRS( J); BS:GET#15, AS 

1188 ACI>=ASC(AS+Z$) :NEXTI 

1198 T4=T 'S4=S° T=ACG) ‘S=AC 1): IFTC>@GOTO1130 

1208 T=TH<B, 1) °S=SK(8, 1) T2C@, 1920: IFTC>8G0TO1130 

1218 IFL2<L2C@)THENPRINT" INCORRECT BLOCK COUNT!" :GOTO1260 
1228 T=T6'S=S6*D=Dé 


1240 PRINT#@1S, "M-W" ; CHRS CD) ; BS; CHRSC1) | CHRECX) 
1258 PRINT#IS, “U2'2,"; DS; T;S* GOSUB3820  GOTO1300 
1268 PRINT “SORRY - IT WON’T WORK* 

1278 CLOSE2 

1280 INPUT"#® GOT TIME TO VERIFY/COLLECT DISK"; xs 


IFASC(X#)=?STHENEND 


1300 CLOSE2 ‘PRINT#15, "V"; DS: END 


REM GRAB FULL DISK BLOCK 


2018 GOSUB3600 

2020 FORJ=OTO25S 'PRINT#1S, "M-R" ; CHRE¢ J); BS: GET#15, AS 
2030 ACJ>=ASCCAS+Z$) | NEXTS: RETURN 

3000 REM READ BLOCK 

3010 PRINT#IS, "B-R'2,"iD$;TiS 

3020 REM GET ERROR STATUS 

3030 INPUT#1S.E,E$,E1,€2 

3840 IFECOGTHENPRINT"’CRVSIDISK ERROR: COFFI"E;E$,E1;E2 


RETURN 
READY 
DISK FILE LOGGER © JIM BUTTERFIELD 
108 DIMT$<4) 
116 PRINT“DISK FILE LOG - JIM BUTTERFIELD" 


DATA 169,60, 162,4,149,95,282, 16,251,169, 168, 133, 94, 162,2,32, 198.255 
DATA 230, 98,208, 18, 230,97, 208,6,230, 96,208, 2,230, 95,32, 228,255, 165,150 
DATA 246,235, 32,204,255, 1968,94,6, 98,38, 97,38, 96,38, 95, 16,244,96 
FORJ=868T0914 : READX = POKEJ. X:NEXTJ 
DATA "XXX", "SEQ", 7 “USR", "REL" 
FORJ=OT04 :READTS(J> “NEXT 
INPUT“PRINTER" 5 2$ 
2=3+ IFASC(2$)=89THENZ=4: INPUT"DATE #{3CL)"; DS 
INPUT"FILE CHECK"; 2$ 
IFASC(2$)>=89THENF=1 
OPEN4, 2: OPEN1, Br15, "19": CLOSE! 
G$=" 
OPEN ,8,3, "$0" 
FORJ=110142:GET#1,AS:NEXTJ 
FORJ=1T016  GET#1,A$: IFAS=CHR$<160>GOTO280 
NS=NS+AS 
NEXTJ :GET#1, AS. 
FORJ=1TO2: teTei Phe: IFAS=CHR$(168>GOTO318 
Is=1$+As 
NEXTI 
FORJ=1T092:GET#1,A$:NEXTJ 
PRINT#4, “ie DISK LOG dee ie 
PRINT#4,"DISK: “;N$;" ID: 
M=M+1 :GET#1,K$,T$,S$: IFS$="" THENSS=CHRE(O> 


F$="" -FORJ=1T016:GETM#1 , AS: IFAS=CHRE(168)GOTO380 
FS=Fs+As 


NEXTS 

FORJ=1T018:GET#1,AS: upd 

L=8 ioe be Neo icad 

lil is “TRNCOTHENGET#T as, A$: GOT0438 


SW=ST: IFK$=""GOTO640 

K=ASC(K$)-128 : IFKC1ORK>4THENK=8 

IFZ=3ANDF=1G0T0480 

HS=MIDSCSTRSCASC(T$) >, 2): PRINT#4, LEFT$(G$, 3-LENCH$) >; HS; 
HS=MID$CSTR$CASC(S$) >, 2): PRINT#4,LEFT$(G$,3-LENCHS))5H$;" "5 
PRINT#4, TECK); 

HS=MIDSCSTR$(L>, 2): PRINT#4,LEFT$(G$, 4-LENCH$>);H$;" "5 
PRINT#4, FT$<(G$,17-LENCFS$)); 

















IFK=20RF=1THENOPEN2, 8,4, "O:"+FS+","4+TSCKD +" R” 
A=@: IFKO2GO0T0S78 


GET#2, AS, BS: A=@ = IFASC>""THENA=ASC(AS) 
B=@: IFB$<>"" THENB=ASC(B$) 


POKE1 , 92: POKE2, 3: A=R+USR(8> 
IFK<>2THENPRINT#4,A; "BYTES"; :GOTO620 


680 PRINT#4," "> “AX=A/256  R=A-AZH256 : B=B+AZ 


618 


GOSUB796 


628 CLOSE2 

636 PRINT#4 

648 IFSW=@G0TO358 

65@ CLOSE1 :CLOSE4 END 

708 X=B/16:GOSUB710:X=A/16 

718 FORJ=1102 : X%=X! K=(X-K%) M16: IFXZDOTHENKE=KL4+7 
720 PRINT#4, CHR$(X%+48) ; =NEXTJ «RETURN 

READY. 


DISK VIEW JIM BUTTERFIELD 


106 PRINT"CCLR,CDIDISK SECTOR VIEWER — JIM BUTTERFIELD” 
118 FORJ T0960 : [FPEEK<32768+J)=32THENNEXTJ ‘STOP 









B(77,4),AC255) 

(17): INPUT“DRIVE#" ; D$: IFD$="S"THEND$="0" : BS=CHRE(3) 
145 IFDS$<>"O"ANDD$<>"1"GOT0140 

156 OPENIS,3, 15, "I"+D$:GOSUB640 

166 OPENS. 8,3, "#"+D$: GOSUBE46 

176 Z2$=CHR$(@> : GET#3, AS: A=ASCCAS+2$) 

ORA=6S5THENDI=1 : T9=35 :S9=3 

?THEND 1 =257 : T9=77 :S9=4 

IFT9=OTHENCLOSE3:PRINT"?? DISK NOT RECOGNIZED ??":STOP 
INPUT" PRINTER"; PS: IFASC(P$)<>89G0T0238 

OPEN4. 4: PRINT#4 :S1=16 °GOTO246 

ENS, 3 
2=51#16~1°FORJ=1TOD1 ‘GET#3, A> NEXTJ 
PRINT#4, “ FREE BLOCK MAP" 
FORJ=1 TOTS: T1=8:PRINT#4 

IF J=S1THENGET#3. AS, AS.AS, AS 

GET#3.AS: C= (AS+Z5) 

90 PRINT#4,RIGHTS(" "+STRE< 
389 FORK=OTOS9-1 ‘GET#S, AS: A=ASC(AS+Z$> 
318 BCJ.k FORL=@TO7 : D1=32: Ai 
328 A=AX: PRINT#4, CHR$(D1>; *NEXTL,K 
338 IFT1COCTHENPRINT#4, "2"; 

340 NEX 
358 CLOSES: PRINT#4:PRINT#4 = PRINT#4 : PRINT 
368 OPEN2,8,2,"#8" :GOSUB648 

376 PRINT" CHOME, 21CD] @¥TRACK, SECTOR 
388 INPUTT,S 

398 IFTCLORT>TSTHENCLOSES : CLOSE2 :CLOSE1S: END 
PRINT"CRVYS) WORKING “ 

8's SAS : S6=INT(21S5+. 5): TE=BCT, Sx 
LOCATED" : IF T6ANDS6THENF $=" FREE)” 
430 PRINT#IS, "B-R'2,";D%;T;S*GOSUB640 
446 FORJ=8T025S 
450 PRINT#1S, "M-R" 





































Ti=Ti+1 












6, @CSCL)” 













IRS¢ I>; BS 








460 GET#IS, AS: IFAS=""THENAS=CHRS(O) 
478 ACJ>=ASCCR$) ‘NEXTJ 
488 P=6 


490 PRINT" CCLRITRACK";T; "SECTOR"; S; FS 

586 IFS1>STHENPRINT#4 : PRINT#4: PRINT#4, "TRACK"; T; "SECTOR"; S;FS 
518 FORJ=PTOP+S2STEPS1 ‘ PRINT#4 
526 V=J:GOSUB67@:PRINT#4,": "5 
S36 NEXT K:PRINT#4,":"; “FORK=@TOS1~-1°V=ACJ+K) IF 
54 PRINT#4,CHRSCVY); “NEXTK, J 

S5@ PRINT#4: IFS1C9THENPRINT"CRVS] PRESS SPACE FOR OTHER 
S68 PRINT"NEXT TRACK, SECTOR: “; 

S7Q IFAC@)=OTHENPRINT” NONE" * AS: 
588 PRINTAC@); ACL) AS="GO THERE" 
590 PRINTAS;” 
680 GETPS: IFP 








FORK=@TOS1-1 °V=ACJ+K> °GI 






IND127)<32THENV=32 


BYTES“ 





QUIT" :GOTOS9@ 





“GOTO6a8 


‘O° PRINT#4," “ 


610 PRINT“CCUJ" 


630 GOTO370 
648 REM 
658 INPUT#15,E.E$,E1, 


IFS1CSANDP$="_"“THENP=128-P *GOTO496 
620 IFPS="""THENT=AC@> ° S: 





<1): GOTO396 


E2: IFE=@THENRETURN 


660 PRINT"CRYSIDISK ERROR: (OFF )"E;E$,E1;E2°END 


678 VY=V/16:FORL=1TO2 


VV V=CV-V2>816 > IFVYZD9THEN' 





688 PRINT#4,CHR$(V4+48) 5 =NEXTL © RETURN 


READY. 


DISK MOD 


168 PRINT"CCLR,CDIDISK VIEWER/CHANGER 


110 PRINT"CCDI 
126 PRINT" CRN 
138 PRINT” 


JIM BUTTERFIELD 


JIM BUTTERFIELD” 


CAUTION - USE CARE - THIS PROGRAM” 


WRECK YOUR DISK IF USED” 


WITHOUT CARE & UNDERSTANDING!" 


14@ FORJ=20T085S : IFPEEK(32768+J><>32G0T0168 


15@ NEXTJ:STOP 

168 Li=J°S1=L1/5 

178 S2=S1#16-1 :S3=5+S 
188 DIM AC255> 

198 BS=CHR$(17)* INPUT 
208 IFD$<>"O"ANDDS<>” 
210 OPEN 15,8,15,"I"+ 


1#3 


"DRIVES" ; DS: IFD$="S"THENDS="@" : BS=CHR$ (3) 
1"GOT0190 
‘D$ : GOSUBS88 


228 OPEN2,S,2, "#8" :GOSUBS8O 


230 PRINT“ CHOME, 2@CD) 
248 INPUTT,S 

256 IFTC1ORT>77THENCL 
268 PRINT"CRVYS] WORKI 
278 PRINT#15, "B-R:2," 
288 FORJ=8T0255 

298 PRINT#15S, "M-R" ; CHI 
308 GET#1S, AS: IFAS="" 
318 ACJ>=RSCC(A$) : NEXT. 
320 P=O 

338 PRINT" CCLRITRACK* 
346 FORJ=PTOP+S2STEPS 
358 V=J : GOSUB800 :Ks= 
366 NEXT K:PRINT"-" 
378 V2=VAND63: IFV2=44 
388 PRINTCHR$(V>; :NEX 
398 PRINT: IFS1<9THENPI 
400 PRINT: PRINT"NEXT 
416 IFAC8>=O@THENPRINT 
428 PRINTAC@) ACL) > AS: 
430 PRINTAS; "2"; 

448 INPUTCS :Z=ASC(CS> 
450 PRINT"CCUI" : IFS1¢: 
468 IFZ2=89THENT=AC@> 
470 IF2=93G0T0S36 





510 INPUTWIS.E-E$,E1, 
28 PRINT" CRYSIDISK El 
538 IFLEN(C$><S3G0TO2: 
540 IFMIDS(C$,4,1)<>" 
SS@ Ci=2:GOSUB700 

1TOS: 





598 PRINT#IS, "U2:2,"; 
688 GOTO278 
708 C2=0:FORJ=8T01 Cx 


@W TRACK, SECTOR @,@CSCLI"; 


OSE2 : CLOSE1S:END 
NG ":PRINT#1S, "B-R:2,";D$;T;S:GOSUBSOO 
+ D$; 15S: GOSUBSO8 


RFC ID BS 
THENAS=CHR$(8> 
J 


3 Ti "SECTOR" 5S 

1:PRINT: PRINT" 1"; 

":PRINT"— “3 :FORK=@TOS1~1:V=AC J+K) :GOSUB8O0: PRINT" 
FORK=0T0S1-1 = V=ACJ+K) : IF<VAND127><32THENY=32 
JORV2=S8ORV2=34THENV=32 

TK, J 

RINT “CRVSISCOFFIWAP"; 

TRACK, SECTOR: "; 

"NONE" ° A$="QUIT" :GOTO436 

="GO THERE” 





SANDZ=83THENP=128-P ‘ GOTO330 
S=AC1> :GOTO258 


E2* IFE=OTHENRETURN 
oe COFFI"E;E$,E1;E2° END: RETURN 
~"ORMIDS<C$, S3+1,1)<>"-"GOTO230 


1:C1=kK#3+3 : GOSUB708 


W" | CHR (C3+K) | BS; CHR$(1> | CHRECC2) 


D$;T;S*GOSUBSeB 
PASC (MID$CC$,C1+J>>* IFCX<SSTHENCK=CX-48 


710 IFCX>64THENCZ=Cz-SS 


92)(e1 210) 6 (eLas: 


Sales and Purchase Ledgers 


Open Item accounts 


Nominal and VAT Ledgers 


Invoice preparation 


Stock recording & control 


Job Costing 

Fully Integrated 

Large Capacities 

One pair of Disks only 
Multi Companies 
Powerful & Flexible 
Simple to Operate 


Computer Systems 


MMS Ltd., Ketwell House, 75-79 Tavistock Street, Bedford MK40 2RR. 
Tel. (0234) 40601 Telex 826311 





Commodore Computing 


45 


Basic Programs 


726 IFCX<@ORC%>1STHENSTOP 

738 C2=C2#16+Cx% :NEXTJ : RETURN 

808 V=V/16:FORL=1T02 

B18 VA=V5V=CV-V2 #16: IFVADSTHENVASVAt7 
$28 K$=K$+CHRECV1) 

838 PRINTCHR#<V%+48) j ‘NEXTL ‘RETURN 
READY. 


DIRECTORY ALPHABETIZER - BASIC 4 


TGR REM eR Ho eet A IOIMOI NERO HO IOI 
116 REM # DIRECTORY ALPHABETIZER 
126 REM # * 


136 REM # P. GABOR ” 
146 REM * 11/03/82 
1S. REM RARE ARI IA IORROIIOROI RO MOROIOROIE 
166 

176 Ci=0:C2=1 


186 DIM E1$<S@O>, TS(5@.1> 

190 AHS=CHRS¢17> 

200 TS(1,0)=39: TS¢1,1)=1 REM 
216 AZS=CHRS(O): BZSsAZ$+AZ$+AZS 

220 FOR K=1T06 : AZ$=AZ$+AZ$: NEXT 
230 AZS=LEFTS(AZ$, 27> 

246 GOTO2860 

27 REM sae IOI I IRR IRAE 
290 REM * BUFFER-READ & ERROR CHK ™ 
293 REM Hasan IIS IOIO IOI IOI: 
295 PRINT#1S, "B-R° "3; DDS; TiS 

300 IF DS<26 THEN RETURN 

319 PRINTDS$ 

326 CLOSE3: CLOSE15:. END 


378 REM Hess S Ha OHO RII 
386 REM * OPEN FILE & GET BUFFER #* 
39 REM HASSAN 
408 OPENIS,3.15,"I"+DD$: GOSUB300 
418 OPEN3.8,3,"#6"" GOSUB300 

420 RETURN 


F7 REM tA H RAR IIIA 
430 REM * READ ONE CHAR FROM BUFFER® 
43 REM RARER AOI HAI IEA AE 
560 PRINT#IS. "M-R"; CHRS<KK> 5 AHS 

S1@ KK=KK+1 

S20 GET#1S.C#: IF C$="" THEN C¥=CHRS(B) 
538 RETURN 


SSG REM fabio RHO ER EIR HR 

586 REN * READ NEXT BLOCK INTO Els # 

SOQ REN AAR RANE ARH A 

600 T=TS(C2,0>: S=TS(C2,1):E=0: REM 
610 IF T=@ THEN E=1: RETURN 

620 C2=C2+1: KK 
630 PRINT#15, "B-R 
644 FOR K=6 TO 1 
656 «= GOSUBSG 
660 TS(C2. K3=ASCKC#) REM 
67@ NEXT K 

636 FOR J=1 TO S 

690 «-BS="" 

706 4 ©GOSUBSGG: AS=C$: AL=ASC(C$> 

710 4 ©6GOSUBSOG: As=AS+CE 

726 © «©6GOSUBSOG: AS=AS+CE 

736 «FOR L=1 TO 27 

746 GOSUBSG0: BS=BS+Cs 

750 = =NEXT L 

760 = KK=KK+2: IF A1C129 THEN 800 

77 = =6C1=C1+1: PRINTRIGHTS<" 
78@ PRINTLEFTS(B$, 16) 

790 E1$<C1)=BS+As REM 
806 NEXT J 

81@ RETURN 


S50 REM sien III 
$60 REM # PRINT BUFFER TO DIRECTORY * 
876 REM * Pl HAS NR OF ENTRIES * 
380 REM * P2 HAS NR OF BLOCKS PRTED * 
REM eS RMI IOI EH IR MEH fa EE 
P2=P2+1: T=TS(P2,8): S=TSCP2,1) 
PRINT#15S, "B-R: "3; DD$;7;5: GOSUB3AG 
P=@° FOR K=OT07 
P1=P1+1: BS=RIGHTSCE1$¢(P1);3) 
P=K#32+2: AS=LEFTSCE1$¢(P1),27) 
PRINT#15S, "B-P:";35P. 
IFP1>C1 THEN AS=AZ$> BS=BZE 
PRINT#3. BE: AS; 
N$=""__"+STRSCP1>: IFP1>C1 THEN1G@G 
PRINTRIGHT#<N$, 5), LEFTSCAS, 16) 
NEXT K 
PRINT#IS, "U2: "3; DDS; T:S 
GOSUBIO0 
RETURN 


REM sHsH HSS RIOR RIOR 
REM * NO NEXT BLOCK * 
REM debe I 
PRINT#1S, "Mt 
PRINT#IS, "U2° "53; DDS5 TIS 
GOSUB308 

RETURN 





3; DDS;T;S: GOSUBIOB 





Ni da dada dada lal dish ch taeda dead 
REM* SHELL-METZNER SORT * 
REM Ro A 
AS=C1° L=C1 
L=INT(L/2) * IFL=@THENRETURN 
E=1:A2=A3-L 
Al=E 

=AL+L 


AS=E1$CAL>: E1LSCAL=E1$¢P) 
E1$¢(P>=AS: AL=A1-L 
IFAL<1THENI3SO0 

GOT01246 

E=E+1 

IFE>A2THENI216 

GoTo1230 


FEM 4A ESHER Ha HE 
REM * MAIN PRGM * 
REM ses 
PRINT") 


PRINT 
PRINTTAB(25)"P. GABOR" 
PRINT "M_—__* 


PRINT" @ARNING! @ 


INPUT"DRIVE #"5 DDS 

IF DD$<>"G" AND DDS<>"1" THEN 2340 
GOSUB480 

PRINT"7) DIRECTORY LISTING:" 
PRINT 


UB6GG 
IF E=@ THEN2530 


PRINT: POKE633.0: SYS4541,E1$¢@) 
PRINT: PRINT" 





PRINT 


4 6 Commodore Computing 


PRINT" @ DIRECTORY ALPHABETIZER #m” 


PRINT" @* NEW DIRECTORY #=" 


FIRST DIRECTORY TRACK/SECTOR 


TRACK, SECTOR 


NEXT TRACK, SECTOR 


"*STRSCC1>. 5). 


PREPARE STRING FOR SORT 


J CHRS(O) | AHS; CHRS (2) | CHR“ | CHRS (255) 


IFLEFTS$CE1$(AL), 16)<=LEFTS(E1$¢P), 16>THEN1300 


POWER FAILURE DURING" 


PRINT" PROCESS MAY DAMAGE DISK. ml" 
PRINT” BACKUP COPY SHOULD BE’ 
PRINT" AVAILABLE ! sa" 


READY. 





iS N 


% 


g 
N 
2 
oe 


& 

8 
BSSPLSSLSSSSSSSSHLSH ABH RS 
> 
o 


Pi=@: P2=0 

GOSUBIER 

IF P1<C1 THEN2610 

GOSUB1106 

FOR K=P2+1 TO C2-1 REM 
IF _P2>C2-2 THEN 2720 
T=TSCK,8): S=TSCK,1) 
GOSUB295 
GOSUB1106 
PRINT#15, "B-F >"; DDS; T5S 
GOSUBSEB 


NEXT _K 

CLOSE3: CLOSE1S 
PRINT "73" 

ral a a etd 


FREE BLOCKS 


o 
Ly 

AV GRBAMSALSSSNSIZ 
2 


33 
Pam) 
ag 
OL 
oo 
&8 


3 
888 


88 
BR 
&3 


8 
38s 
& 


Do 
aa 
BB 
+ 
nan 
hl 
o 


FG AB 


3h 
FSSZERRAST SRV SSSSRBVRH SARS 


BS CS B6 
ES BD 85 B2 
7 


& 
BHSVPSHSHGARSGSSHARSV VES SSPORVBSSRRARSS SLE SASGSSSASHSRRSAGLSBSNSEK 
a 


LIFE EXPECTANCY 


16 GOTO1600 
106 POKE143,6-WAIT143,64:POKE15S,@:PRINT"CSCD,30R,RVSIANSWER* (OFF) "; °POKE167.6 


Me="" 


105 WAIT1S8, 1 -GETGS 





136 I 


164 I 
176 


'?" THENPRINT" YES” :GOTO19@ 
“THENPRINT"NO" :M=@:GOTO19@ 


FMTHEN1@5 
14@ M=ASC(G$> * IFM=13THENM=VAL <(M$> :GOTO190 
156 IFM=2GANDM$>""THENPRINT" C2CL] COLI"; :M$=LEFTS(M$,LEN(M$)~1) 


FM>S7ORM<48THENI8@ 
S=NF+GS  PRINTGS; 


186 WAIT158, 1°GETG$:GOTO140 
190 POKE167,1°POKE143.0:PRINT" ":WAIT143.64: RETURN 


8 POKESS46S, 14 


PRINT"CCLRIGREETINGS. I AM GOING TO ASK YOU SOME 
PRINT"CCDIQUESTIONS ABOUT YOURSELF. THEN, ON THE 
PRINT"CCDIBASIS OF YOUR ANSWERS, I WILL PREDICT 
PRINT" CCDJHOW MANY YEARS YOU WILL LIVE. 
TI$="G80688" -WAIT142,2 

PRINT" CCLR,CDIHOM OLD ARE YOU?" :GOSUB190:A=M 
PRINT"CCLR,CDIARE YOU FEMALE?" :M=1 :GOSUB190:S=M 
PRINT"CCLR,CDIARE YOU A MAORI?" :M=1:GOSUBIG@>R=M 
PRINT"CCLR,CDIHOW MANY MINUTES OF VIGOROUS EXERCISE 
PRINT"CCDIDO ‘YOU HAVE IN A NORMAL WEEK? 
PRINT"C2CD]¢NOTE: GOLF, BOWLS AND GARDENING ARE 










PRINT"CCD] NOTC3CL.CD]——CCUJACTIVE ENOUGH TO COUNT)" :M=0:GOTO100: T=200°M= 


IFM>STHENM=9 
T=T+M4#3 
PRINT"CCLR,CDIHOW MANY HOURS OF SLEEP DO YOU NORMALLY 


PRINT" CCDIGET EACH NIGHT?" :M=@:GOSUB10@: IFM>6ANDM<1OTHENT=T+4 


PRINT"CCLR»CDIIF YOU COULD MAGICALLY LOSE WEIGHT 
PRINT“CCDIMANY POUNDS WOULD YOU LIKE TO LOSE?" : 
IFW>2aTHENN=2e 

=T-M 

PRINT"CCLR,CDIDO YOU EAT LOTS OF FRESH FRUIT AND” 
PRINT"VEGETABLES?" ‘M=1 :GOSUB100: T=T+M#6 


HOW" 








PRINT"CCLR,CDIDO YOU OFTEN HAYE FRIED FOOD ","CCDI<EGGS. 


M=1* GOSUB1 6: IFM=GTHENT=T+2 


PRINT"CCLR,CDIDO YOU SMOKE A PIPE?" :M=1 :GOSUB1@0: T=T-M#4 


PRINT" CCLR,CDION THE AVERAGE, HOW MANY CIGARETTES" 


CHIPS, 


=8 : GOSUB1OG: M=(M-S)/2.5 


MEAT, 


eTc 


PRINT" CCDICOR CIGARS? DO YOU SMOKE PER DAY?" °M=0>GOSUB1G0: IFMTHENM=M+22 :C= 


T=T-M/3 

PRINT"CCLR.»CDION THE AVERAGE, HOW MANY DRINKS DO YOU 
PRINT" CCDIHAVE PER DAY? 

PRINT"C3CD] NOTE 
PRINTTAB(26>"1 NIP OF SPIRITSCSCL,CD.RVSIOR 





1 DRINK = 1 BOTTLE OF BEERC9CL,CD.RYSIOR 














PRINTTAB(20)"1 GLASS OF WINE": M=@:GOSUB10@:T=T-4#ABS<M~1> 

PRINT" CCLR.CDIHAYE YOU HAD A TETANUS INJECTION IN THE 

PRINT" CCDIPAST 18 YEARS?” :M=1:GOSUB1G0:T=T-4+Me4 

PRINT"CCLR,CDJIN THE LAST FOUR TIMES YOU WERE IN AN 

PRINT" CCDIJAUTOMOBILE, HOW MANY OF THOSE TIMES DID 

PRINT“CCDIYOU USE THE SEAT BELT?" :M=0:GOSUB19@° IFN>4THEN1330 

T=T+Me2 

IFS=@THEN15@8 

PRINT“CCLR,CDIHAVE YOU HAD A HYSTERECTOMY?" :M=1 °GOSUB10@: IFMTHEN1SOO 
PRINT" CCLR,CDIHAVE YOU HAD A TUBAL LIGATION?" ‘M=1°GOSUB100: IFMTHEN1S90 
PRINT" CCLR.CDIHAVE YOU REACHED MENOPAUSE?" :M=1 *GOSUB16@: IFMTHEN1500 
PRINT" CCLR-CDIARE YOU PRESENTLY USING BIRTH CONTROL 

PRINT" CCDIPILLS?" : M=1 : GOSUB160: IFMANDC>2THENT=T-10 
IFMANDAC36THENT=T+4 

PRINT" CCLR,CDIJIF BEARING A CHILD WERE TO ENDANGER ‘YOUR 

PRINT"HEALTH, WOULD YOU HAVE AN ABORTION?" :M=1 © GOSUB10@: T=T-S+t#6 


1458 PRINT“CCLR,CDIDID YOU BEGIN REGULAR SEXUAL ACTIVITY 


PRINT" CCDIBEFORE AGE 187": M=1:GOSUB1G@:T=T-M 
PRINT“ CCLR,CDIHAVE YOU BEEN IN CLOSE CONTACT FOR A 
PRINT" CCDIYEAR OR MORE WITH SOMEONE HAVING 


1528 PRINT" CCDITUBERCULOSIS?" :M=1 :GOSUB100: T=T-M#4 

1536 PRINT" CCLR,CDIHAVE YOU HAD RADIATION (X-RAY) TREATMENT 

1548 PRINT"OF TONSILS, ADENOIDS, ACNE OR RINGWORM?" 'M=1 :GOSUBIG@: T=T-M«6 

155@ PRINT"CCLR,CDIDG YOU REGULARLY WORK WITH ASBESTOS?":M=1 °GOSUB1O@: T=T-M#2 
1555 IFMANDCTHENT=T-8 


PRINT"CCLR,CDIDO YOU REGULARLY WORK WITH VINYL” 
PRINT" CHLORIDE?" :M=1 *GOSUB10@: T=T-M#4 
PRINT"CCLR-CDIDO YOU LIVE IN A CITY?" :M=1:GOSUB1G@: T=T-M#6 


1588 PRINT" CCLR,CDIHAVE YOU HAD SEXUAL BSE 3 fae MORE 
1598 PRINT“CCDITHAN TEN DIFFERENT PARTNERS?" 


1600 PRINT" CCLR,CDIARE YOU A WIDOW?"; : IFS=@THENPRINT"(CLIER?"; 
1618 PRINT‘ M=1:GOSUB160:T=T-M 


1: GOSUB16@: T=T-M> IFSANDMTHENT=T— 


PRINT" CCLR,CDIWERE YOU DIVORCED OR SEPARATED IN THE 
PRINT"CCDILAST 12 MONTHS?" :M=1 :GOSUB18@: T=T-Mak2 


1640 PRINT" CCLR,»CDIHAS A CLOSE FAMILY MEMBER ¢INCLUDI 

1650 PRINT" CCDISPOUSE> DIED IN THE LAST 1 

1660 PRINT" CCLR,CDJHAVE YOU HAD A_MAJOR ILLNESS OR INJURY 

1678 PRINT*CCDJIN THE LAST 12 MONTHS?" :M=1:GOSUB10@:T=T-M 

1680 PRINT"CCLR,CDIHAVE YOU EVER BEEN IN JAIL?" :M=1 :GOSUB1G8:T=T-M 
16990 PRINT"CCLR,CDIARE YOU PRESENTLY UNEMPLI 

1706 PRINT“CCLR,CDIHOW MANY OF YOUR IMMEDIATE FAMILY 

10 PRINT" CCDICPARENTS, BROTHERS, SISTERS) HAVE DIED 

1726 PRINT“CCDIBEFORE AGE 55?" :M=@:GOSUB1GO0:T=T-49N 

1738 PRINT“CCLR,CDIHOW MANY OF YOUR MORE DISTANT RELATIVES 
1749 PRINT" CCD](GRANDPARENTS, UNCLES, AUNTS) HAVE DIED 
1750 PRINT" (CDIBEFORE AGE 55?":M=@:GOSUB1O0:T=T-M 

1760 IFS=@THEN1800 

1770 PRINT"CCLR.CDIHAS YOUR MOTHER OR ANY OF YOUR SISTERS 
1786 PRINT” CCDIHAD BREAST CANCER?" :M=1 :GOSUB10@: T=T—M¥#4 
1800 PRINT"CCLR,CDJHOW MANY OF YOUR RELATIVES «PARENTS, 
1816 PRINT" CCD]BROTHERS, SISTERS, AUNTS, UNCLES, 

1826 PRINT 
2008 DATA6O.7,51.2,41.8,32.4,23.5,15.8,9.8,5.5 
2016 DATA66.5S,S6.7,47,37.5,28.4,1 
2020 DATAS3.3.44,35.2,26.6,18.9,1 
2030 DATAS7.1,47.5,38.1,29,2,21.1 
2046 IFRTHENFORI=1T016: READS: NEXT 

2050 IFSTHENFORI=1T08 :READX = NEXT 

2068 AZ=A/10 

2078 FORI=1TOA%:READX : NEXT: READY 

2072 IFAD>SOTHENX=S:Y=3 

2875 M=(10-A+10#AZD/18 

2888 AX=T/200HC V+ CX-V +. 5, 

2090 PRINT“CCLR,4CD]I PREDICT THAT YOU WILL LIVE TO BE 
2168 PRINT“CCDI"A+AX"VYEARS OLD. 

2118 GOTO2116 

READY. 


NG 
2 MONTHS?" :M=1 :GOSUB168:T=T-M 


OVED?" :M=1 :GOSUB190: T=T-M 





*CCDIGRANDPARENTS) HAVE DIABETES?" :M=@:GOSUB190: T=T-2eM 


719.9,12.5,6.8 
3.8.7.5 
14.6,9.9/5.9 


ECONOMICS SIMULATION - BASIC 4.0 







ts) 

= 10000 FORI=1 709: READC( 1) :-NEXT*I=RND<-T1> 
8609, 1000. 3096, 580, 2000, 190.2000, 15000, 60000 
3.14 [FREEK< 144) =8STHENPOKE 144,98 


@ PRINT "TIMMTHE OBJECT OF THIS GAME IS JUST LIKE 


PRINT" 





REAL LIFE: TO SATISFY YOUR WANTS AND 


G PRINT" NEEDS. IN THE GAME YO) DO THIS BY 






























IFC 


S28 T=1 








@ PRINT" MACCUMULATING AS MANY SATISFACTION POINTS 
: CAN, 


CA 
G PRINT"BY BUYING 
PRINT" AMONEY TO BUY THE C 
PRINT" EMANAGING A =ARM.” GOSUBS9S 
PSINT*CIMMTHE GAME WILL LAST FOR 1@ TURNS. AT THE 
PRINT" BEGINNING YOU WILL HAVE $16,006 IN THE 
@ PRINT’ SBANK. IF YOU MANAGE YOUR FARM WELL, 
PRINT’ MOU CAN EXPECT TO EARN ABOUT $16,000 PER 
PRINT’ TURN. SPEND THIS MONEY WISELY IF YOU 
O PRINT“ MWANT TO SURVIVE." : GOSUBS9S 
PRINT"TIMNVOU WILL NOW HAVE THE OPPORTUNITY TO 
PRINT’ MDO SOME SHOPPING. PRESS THE NUMBER 
PRINT SWHICH CORRESPONDS TO THE ITEM YOU WISH 
PRINT*sITO BUY. THE COST WILL AUTOMATICALLY BE 
PRINT" MDEDUCTED FROM YOUR BANK ACCOUNT. IF YOU 
PRINT* MISH TO BUY TWO OF A PARTICULAR ITEM, 
? PRINT" MTHEN PRESS ITS NUMBER TWICE." :GOSUBS9S 
PRINT"SCAPITOL GOODS" -PRINT“——— 
PRINT" 1. TRACTOR" TABC32)>"$ 20, 
PRINT" 2, LOAD OF FERTILISER" TAB(35S> “1,600 
PRINT" ty eg GOODS" -PRINT’~——__— 
PRINT" FOOB"TABK32)"$ 3,080 
PRINT" 3 CLOTHING" TABC37> "S68 
PRINT" 5. SHELTER" TABC35)"2,000 
PRINT" 6. WASHING MACHINE" TABC3S>"1,060" : IFWi THENGOSUBISS 
PRINT" 7. COLOUR T.¥. 'TABC35) "2,80" : IFW2THENGOSUBSSS 
PRINT" &, NEW CAR" TAB(34)"15,900"- IFW3THENGOSUBS8S 
PRINT" 9. NEW HOUSE" TAB(34>"68,000" IFW4THENGOSUBSSS 
GOSUBS9O 
PRINT“SHINHEN ‘YOU HAVE FINISHED SHOPPING PRESS F"; «N1=@ N2=0:N3=0 
POKEISS,0 WAIT1SS,1 GETGS: [FGS="F“THEN7OO 
G=VAL (GS) « IFG=OTHENSSS 





YOU GET SATISFACTION POINTS 
CONSUMER GOODS. YOU GET THE 
CONSUMER GOODS FROM 








900" : IFTTHENGOSUBSSS: 


BTHENASO 


=B 
ONGGOSUESZa, 548,569,580, 600',620,640,660, 680° GOSUB99G: GOTO4S0 


RETURN 


S46 eee I THENS=S+. 5° RETURN 









GIS RETURN 
‘S°N1=1 RETURN 


08/4 RETURN 


2 
700 IFNIANDNZANDN3THEN? 28 
7@S PRINT"SIMMYOU ARE DEAD |": PRINT" SMMWOU CANNOT SURVIVE WITHOUT ": 
























t=1 





Sa, 


IFY= 








THENPRINT "FOOD. " ' GOSUB99S ‘RUNSO 
THENPRINT" CLOTHING. "= GOSUBS95 : RUNSO 
SHELTER." GOSUB995: RUNSO 

LOTHENS 
IFRND: 











4THENSOO 


PRINT" SIMMVOUR CROPS ARE INFESTED WITH INSECTS.” GOSUBS90 
PRINT" SeeHOW MUCH DO YOU WANT TO SPEND ON 





54 PRINT" MINSECTICIDE? "; 'X=@° IFB=OTHENTSO 
3 AS="" POKE167,8 
POKE1SS,0 WAITIS8, 1 GETGS: IFGS="m"ANDAS>” " THENAS=LEFTS(AS, LENCAS)—1) PRINT" 


ee G¥)=13THENPOKE167.1 PRINT" ":GOTO776 





GF) >S70RASC (GS) <4 THEN?SS 


7+X/38068: IFID>1 THENT=1 
1) IFTTHENR=R#2 


¥ vei PRINT “TEND OF YEAR" 
PRINT" MMVOUR HARVEST IS WORTH $"INTCR) "MM. sea" 
SCITHENPRINT“THE FERTILITY OF YOUR SOIL IS LOW, 


SITHENPRINT" YOUR CROP WAS DAMAGED BY INSECTS. 
‘2 GOSUBS9S : B=B+R : GOTOS10 


PRINT" CIMMITHE GAME IS FINISHED." 
PRINT" MMMVOUR SCORE IS"PA"mL 


MTHAT RATES YOU AS A"; : IFPXC12OTHENPRINT" POOR"; GOTOS40 
S8THENPRINT" FAIR"; -GOTO94@ 
<C368THENPRINT" GOOD"; -GOTOS4e 

N EXCELLENT"; 

PLAYER." 

inc (2): IFPXD TSTHENTS=P% POKE2, TS-298 





u 
PRESS @5HIFT® TO CONTINUE.") “WAITIS2, i. 1 


DIPLOMAT 


THE PROFESSIONAL COMMUNICATOR 
Serial-Parallel-IEEE-Interrupts Calander/Clock-Auto/Load start-Battery backup 


A complete |/O and control system on one card with many unique features. All functions controllable from standard 
Basic using SAVE, LOAD, VERIFY, PRINT, INPUT AND GET. 


PARALLEL 

EIGHTY 1/O lines 

2-16 bit timer/counters 

handshake lines 

8 handshake modes for Centronix etc 
(equivalent of 8 PET 

user ports) 


IEEE EXTENSIONS 

Device Go-To-Local 

Device Clear/Trigger 

Serial poll disable/enable 
SRQ service request to any 
BASIC subroutine 


*INTERRUPTS* 


4 edge triggered interrupts jump to any BASIC 
subroutine 


SERIAL 

TWO asynchronous serial |/O 
ports linkable to TTL, RS232C 
or current loop 50 to 19,200 
baud with 96 byte 

extendable buffer 


CONTROL FACILITIES 
WATCHDOG for hardware and 
software errors 

1K BYTE BATTERY BACKED 
RAM CALANDER/CLOCK 
AUTO LOAD/START on power 
fail detector 


Diplomats immense interface capability make it particularly suitable for control, data logging, instrumentation, 


educational and communication applications. 


Diplomat is available for all CBM and PET computers and can be mounted internally or externally. 
Prices from £380+ VAT (quantity and OEM discounts available). 





Send for full details to: — 


CORRTRONIC (Technical Services) LTD., BOWDEN HALL, MARPLE, STOCKPORT, CHESHIRE SK6 6ND 


Tel. 061-427 7222. Telex. 665905 CORTRO G 
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“SYSTEM” — Part 2. Handling subroutine 


parameters. 


In part 1, | described how a call-by-name method 
for subroutines could be implemented on the 
PET. Having learnt how the basic call 
mechanism works, we can now go on to see 
how subroutine parameters are handled. 

From listing 1, it can be seen that the sample 
library, published in part 1, has been extended to 
include five new subroutines, all of which re- 
quire the user to specify parameters on the call- 
line. The first two subroutines, called 
“BLOCKT”’ and ‘‘“XKCHNGE”, provide the user 
with some basic functions for manipulating the 
contents of memory: BLOCKT enables the user 
to copy, or block transfer, one area of memory 
to another, and XCHNGE can be used to swap 
the contents of two memory areas. When calling 
either of these two routines, the user has to 
specify, on the call line, the addresses of the 
memory areas involved, and also the number of 
bytes to be transferred. The following segment 
of code shows the call-line syntax needed to in- 
voke the BLOCKT and XCHNGE subroutines: 


100 REM COPY TOP OF SCREEN TO FIFTH 


LINE 
110 S=32768 : REM SCREEN START 
ADDRESS 


120 E=32768 + 


40*5 : REM FIFTH LINE AD- 
DRESS 

130 B=40 : REM BYTE COUNT 
(=LINE LEN) 


140 SYSTEM, ‘‘BLOCKT’’, S,E,B 


200 REM SWAP TOP TWO SCREEN LINES 
210 SYSTEM, ‘’XCHNGE”’, 32768, 
32768+40, 40 


Note that the example above also 
demonstrates that parameters can be coded as 
constants, expressions, or variables. The 
BLOCKT and XCHNGE routines could be used, 
for example, to maintain and display several dif- 
ferent screen images. 

The next two subroutines that are new to the 
library are called, ‘““READER’’ and ‘‘WRITER’’. 
They offer similar functions to those of the ‘L’ 
and ‘S’ commands of the machine language 
monitor (MLM), and enable the user to store 
areas of memory as program files on disk. This 
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facility can be particularly useful for frame- 
handling applications, where the contents of the 
screen display needs to be recorded on disk for 
subsequent re-display. The following is an exam- 
ple of how the call-lines for READER and 
WRITER are coded: 


100 REM SAVE CURRENT SCREEN 
CONTENTS. 

110 SYSTEM, “‘WRITER”’, ‘“‘GO: FRAME 1’, 
32768, 32768+ 1000 


160 REM RE-DISPLAY FRAMES 
170 SYSTEM, ‘‘READER”, ‘‘O : FRAME 5” 


Again it should be noted that the parameters 
can be coded as constants, expressions, or 
variables. For example, the above call to 
WRITER could have been coded as: 


105 N$="'1"':S = 32768: K = 1000 
110 SYSTEM,’’WRITER’’,’’O : 
FRAME’’+N$,S,32768+K 


The fifth and last member of the new library 
set is called, ‘‘DIRECT’’, and offers the powerful 
capability of allowing BASIC expressions to be 
entered, and evaluated, during program execu- 
tion. The following example should make the 
usefulness of the DIRECT routine a little more 
obvious: 


100 REM SIMPLE DESK CALCULATOR 
110 INPUT “‘YES SIR’’,A$ 
120 IF A$=*'X’’ THEN PRINT ‘‘BYE SIR” : 
STOP 
130 SYSTEM,’’DIRECT’’;A$ 
140 GOTO 110 
RUN 
YES SIR?A=3 
YES SIR?A=4 
YES SIR?C=SOR( A*A + B*B) 
YES SIR?’’PRINT A,B,C”’ 
ek, ie 
YES SIR?X 
BYE SIR 


The DIRECT routine can be put to extremely 
good use in such applications as, computer aid- 
ed design, spreadsheet type programs, and 


graphing routines, all of which often require 
computations to be dynamically defined at run 
time. 

From the foregoing examples, we see that 
specifying parameters is fairly straightforward. 
The user simply codes a comma after the 
subroutine name, and follows this with the ap- 
propriate number of parameters needed by the 
particular subroutine. Where there is more than 
one parameter, each one is separated by a 
comma. 

Let us now turn our attention to the actual 
mechanism by which the subroutines 
themselves intercept and evaluate the user- 
provided parameters. As mentioned twice 
already, the user can code a parameter in one of 
three different ways. Consequently, a con- 
siderable amount of software is required to 
evaluate any parameter passed to a subroutine. 
Fortunately, most of the software needed to 
evaluate parameters already exists, and is ac- 
cessable, as subroutines in the PET’s ROMS. 
Therefore the task of evaluating parameters can 
be reduced to two rather simple procedures, one 
to handle string parameters, and one to handle 
numeric parameters. For string parameters, the 
procedure is as follows. First of all we call a PET 
ROM routine, which | have named ‘‘NXTFLD”’, 
to scan the subroutine call line for the next 
parameter. Next, another PET ROM routine, 
named ‘‘EVALU8”’, is called to perform the ac- 
tual parameter evaluation, such as working out 
string expressions, or picking up the string from 
a variable. Finally, yet another PET ROM, named 
“STRING”’, is called to set up the address of the 
string in the zero-page locations, $IF and $20, 
the length of the string being returned in the ‘‘A’’ 
register, or accumulator. The procedure for 
handling numeric parameters is almost the same 
as that used for strings. For numerical 
parameters, the ‘NXTFLD”’ routine is called to 
scan the call-line, then EVALU8 is called to 
evaluate a numeric value. But the final call is not 
to ‘‘STRING’’, but to FIXPNT which ensures that 
the evaluated result is converted to a fixed point 
number with the result being stored in the A 
register (LO byte), and the Y register (HI byte). 
The result can also be found in zero-page loca- 
tions $11, and $12, containing the LO and HI 
byte values respectively. Both of the procedures 
described can be more readily understood by 
referring to the sample library listing. While 
writing the subroutines, | have attempted to 
keep the coding simple, and provided, hopefully, 
sufficient annotation to enable interested 
readers to extend the library further. 


Listing 2 shows a short BASIC program which 
can be used to test the five new library routines. 

Finally, instead of having to enter the source 
code by hand, a disk is available which contains 
the source code as shown, plus some other 
useful library routines. The disk costs 10 pounds 
and can be ordered by writing to me, Danny 
Doyle, at: 
9 Main Street, Gawcott, Bucks. 

Whether you choose to buy the disk, or decide 
to enter the code by hand, | very much hope that 
you will find the ‘‘“SYSTEM’’ approach to 
subroutine calling as useful as | have. 


System 

DISPA.SRC....6. PAGE 0001 

LINE# LOC CODE LINE 

9061 9000 ; 

062 9000 5 SBI IIR 

6683 8000 3; ® ; ALL RIGHTS RESERVED 
e004 8000 5a DECLARE 

9085 9000 * * <C>) D. DOYLE L9Ss2 
eee 8000 * BASIC 4.@ ROM ROUTINES BO rem w en eenne 
eee7  BB00 ; * 

6603 8600 3 ARI IRI TR 

e609 ga06 ; 

6616 9000 ERRMSG = #BFO0 3 NAME NOT FOUND = “S'YNTAX ERROR 
0811 aaGa EVALUS = $BD98 3 EVALUATES A BASIC ae aba 
6612 a000 FIXPNT = $C92D ; oe an ur FIXED POIN 

8613 8606 FLGEND = $BAD2 3 MARKS END agi he SREUT BUFF 
6614 68806 NXTFLD = $BEFS 3 SCANS Par A COMMA 

6615 9000 PRGLOD = $F356 3; PERFORMS “LOAD“ 

e616 9000 PRGSAY = $F6E3 PERFORMS “SAYE* 


9617 98B00 SCAN = $0070 
STRING = $C7BS 


; ” STATEMENT SCANNER - CHARGET 
; SETS UP CHARACTER STRING PNTR 


6019 9008 TOKENS = $B4FB 5 BASIC KEYWORD TOKENISER 
920 9000 XECUTE = $8785 ; EMECUTES BASIC STATEMENT 
oo21 9000 ; 
g622 9600 3 REISS SIOR SEARO 
9923 9000 ; ‘ 
9024 9900 + DECLARE + 

6000 * : 
9026 900 * CONSTANTS, VARIABLES = * 
9027 9000 + ‘ 
e238 9000 + AND POINTERS ¢ 
a23 aa00 of + 
6036 9000 5 IRIE 
e031 9000 ; 
9032 9000 BIADLO = 9000 , BASIC INPUT BUFFER ADDR LO 
9033 9000 BIADHI = goa2 DITTO HI 
a034 9000 CASE = s€84C ; CASE-MODE SWITCH-ADDRESS 
9025 GG00 COLON = $003A } ASCII VALUE FOR A COLON 
9036 9000 DEVICE = so0D4 ; CELL TO HOLD DEVICE CODE 
0037 9000 DISK = 9008 ; DISK DEVICE CODE 
8638 6000 END = $90C9 ; Ha puey TO PROGRAM END 
9033 9000 ENTPNT = $0000 SUBROUTINE START ADDRESS PNTR 
9049 9000 ENTLEN = 0908 | ENTRY. SIZE 
0841 a060 FILNOM = #06DA > FILENAME POINTER 
6642 8068 FNADHI = $0007 > MLM PTR TO FN FOR SAVE/LOAD 
0043 9000 FNADLO = $0002 ; MM PTR TO FN FOR SAVE/LOAD 
2044 9000 FHMLEN = $00D1 ; CELL HOLDS FILENAME LENGTH 
6045 9000 IMGPTR = $0077 ; CHARGET IMAGE POINTER 
eo46 9000 LODVFY = $009D LOAD OR VERIFY FLAG 
0a47 9900 LOWER = 6014 ; LOWER-CASE MODE VALUE 
9048 9000 NAMSIZ = a006 | SUBROUTINE NAME SIZE 
2049 9000 START = $00FB ; POINTER TO PROGRAM START 
9050 9000 STATUS = $9096 1/0 STATUS FLAG 
8051 9000 SUBNAM = $001F ; NAME ON “SYSTEM? CA 
aes2 9000 TABNAM = #0000 | POINTER TO. CURRENT ECP. T. NAME 
e053 9000 UPPER = 9012 ; UPPER-CASE MODE VALUE 
0054 9000 VARPTR = $001F ; CURRENT VARIABLE NANE 
ae55 900 ZERO = $0000 ; ZERO = @, SEEMS REASONABLE! 
DISPA.SRC...+04 PAGE 0802 
LINE# LOC CODE LINE 
e056 9000 WREG® = $005E ; WORKING REGISTER 
ce a. RSE 

= $0211 “| WORKING REGIS 

ass 9000 ; Pe RESTOR 
eee 9000 
006i 9000 
a62 3000 


; dss dslesledlalaalaabsedlleosladdsabasbsaaoal 
; * 
9064 3000 * * 


8065 8000 7 MCI DISPATCHER £2 & 
8066 3000 a | . 
8067 9000 3 ® THIS ROUTINE ENABLES BASIC # 
8068 000 3 ® PROGRAMS TO CALL-BY-NAME * 
2063 8000 ; ® MACHINE-CODE SUBROUTINES. . 
076 9000 J + 
oo71 8800 * E.G. * 
ga72 9000 i” * 
8873 o000 ) # 10 SYSTEM, "CASELO" ’ 
8074 a0 ;* ‘ * 
3075 9000 % 390 SYSTEM, "CASEUP" * 
e676 9000 ae, | * 
eo77 9800 | esas ee 
9078 9000 
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THE DISPATCHER......PAGE 003 
CODE 


LINE# LOC 


6a 


NXTCHR LDA ¢SUBNAM), 


GET NEXT CHAR OF CALL NAME 


LINE 
*=$6000 

SYSTEM CLD 3} WE DON*T WANT DECIMAL MODE 
SR NXTFLD 3 SCAN TO START OF SUBRTN NAME 
JSR EVALUS + EVALUATE CHARACTER STRING 
JSR STRING 3 THEN SET UP POINTER IN SUBNAM 
LDA #EPTLEN 3 GET THE LENGTH OF THE E.P.T 
LSR A 3 DIVIDE E.P.T LENGTH BY EIGHT 
LSR A i CNUMBER OF BYTES PER ENTRY’) 
LSR A + YIELDS NUMBER OF ENTRIES 
TAX 3 ENTRY COUNT IS LOOP CONTROL 
LDY #ZERO 3 INITIALISE CHARACTER INDEX 
LDA #<EPTAB + SET UP E.P.T NAME POINTER LO 
STA TABNAM ; 
LDA #>EPTAB 3 SAME FOR NAME POINTER HI 
STA TABNAM+1 3 


CMP <TABNAM),. SAME AS E.P.T NAME? 
BNE ENT IF NOT, THEN BRANCH TO NXTENT 
INY BUMP CHARACTER POINTER 
ge #NAMSIZ HAVE WE MATCHED ALL CHARS 
NXT! IF NOT, GO MATCH NEXT CHAR 
28 


* * 

%* CONTROL WILL COME HERE WHEN * 

* WE SUCCESSFULLY “LOOK-UP” ¥* 

* THE SUBROUTINE NAME. * 

* * 

{AESOP 
LDA CENTPNT).Y i LO BYTE OF SUBRTN ENTR'Y-POINT 
PHA + AND STACK IT 

3 BUMP_TO THE HI BYTE 

+ NOW THE HI BYTE 

+ GETS STACKED 


NOW THE STACK HAS BEEN PRIMED. SO THE FOLLOWING 


RTS INSTRUCTION WILL PASS CONTROL TO THE RQUESTED 
SUBROUTINE. 


INY 
LDA <ENTPNT),¥ 
PHA 


RTS +DISPATCHED! 


THE DISPATCHER. .....PAGE e004 


LINE# Loc 


Loc 


50 


26 66 BF 


CODE 


T.seeeeePAGE 8005 


CODE 


3 
3 
3 
3 


3 
j 
3 
3 
3 
Ni 


LINE 


Peis are tds" 


* 
%* CONTROL COMES HERE WHEN THE * 
* CALL NAME AND E.P.T. NAME  #* 
* FAIL TO MATCH. IF THERE ARE * 
* MORE NAMES IN THE E.P.T WE # 
* TRY AGAIN, ELSE IT’S RATHER * 
%* BAD NEWS FOR THE USER! * 


* 
211 EE 


STENT LDY #ZERO + RE-INITIALISE CHARACTER PNTR 
LDA TABNAM + COMPUTE ADDRESS OF NEXT ENTRY 
cLe 3 PREPARE FOR ADDITION 
ADC #ENTLEN + ADD ENTRY LENGTH 
STR TABNAM 3 SAVE BACK NEW ADDRESS 
LDA TABNAM+1 3 MAYBE WE HAD A CARRY 
ADC #ZERO + $0 CATER FOR THE POSSIBILITY 
STA TABNAM+1 3 JUST IN CASE 
DEX + ONE LESS ENTRY TO COMPARE 
BNE NXTCHR + BRANCH IF MORE ENTRIES 


28101 IIIA 
* 


* CONTROL COMES. HERE IF THE 
* CALLED SUBROUTINE DOES NOT 
* EXIST, IN WHICH CASE _THE 

* INTREPID USER WILL BE GIVEN 
* BASIC’S VERSION OF THE 

* THWO-FINGERED SALUTE, I.E 

* THE MESSAGE “SYNTAX ERROR” 
* WILL BE DISPLAYED, AND THE 
* LITTLE OL’ PROGGY WILL COME 
* TO A GRINDING HALT IN TRUE 
* USER-FRIENDLY FASHION! 

* 
* 


* 
BEE 
JSR ERRMSG 3 


Oe 


“ON 'YER BIKE!“ 


LINE 


EPTAB .BYTE 


PAAR EET TAREE T AER AE 
* * 


HERE IS THE DISPATCHER’S * 
ENTRY-POINT-TABLE <E.P.T> * 


* 

* 

* ¥ 
* ENTRIES ARE EIGHT BYTES LONG* 
* AND CONSIST OF A 6-CHARACTER* 
* SPACE-FILLED NAME, FOLLOWED + 
* BY THE ENTRY ADDRESS MINUS 1# 
% WHICH GETS PUSHED ONTO THE # 
: STACK FOR A CRAFTY RTS JUMP # 
* 


+ 
EAA IRAE ED 


*CASELO’ 
-DBYTE CASELO-1 + SWITCH TO LOWER CASE ROUTINE 
«BYTE ’CASEUP’ ; 
« DBYTE CRSEUP-1 ; SWITCH TO UPFER CASE ROUTINE 
«BYTE “BLOCKT’ ; 
«DBYTE BLOCKT-1 ; MEMORY BLOCK TRANSFER ROUTIN 
«BYTE “CHNGE * 
«DBYTE XCHNGE-1 + MEMOR' BLOCK TRANSFER ROUTIN 
«BYTE ‘READER’ ; 
«DBYTE READER-1 ; XFER DISK TO MEMORY ROUTINE 
-BYTE ‘WRITER’ 
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6196 
G131 
192 
193 
8194 
8195 
B196 


6070 
6a72 
6073 
607A 
607A 
687A 
687A 


62 78 
44 43 
62 B4 


-DBYTE WRITER-1 ; XFER MEMORY TO DISK ROUTINE 
«BYTE ‘DIRECT’ ; 
-DBYTE DIRECT-1 ; DIRECT MODE INPLIT - DIN P 


3 FUTURE ENTRIES CAN BE DEFINED HERE 


EPTLEN = #-EPTAB ; LENGTH OF E.P.T. 


THE LIBRARY......PAGE 9666 
CODE 


LINE# 


8198 
8199 
3208 
8281 
8262 


Loc 


607A 
607A 
607A 
607A 
607A 
607A 
687A 
607A 
6268 
6268 
6208 
6200 
6208 
6206 
6208 
6268 
6208 
6200 
6200 
6268 
6268 
6268 
6266 

268 
6260 
6266 
6206 
6200 
6200 
6208 
6206 
6262 
6205 
6206 
6206 
6206 
6206 
6266 

206 
6206 
6206 
6208 
6205 
6200 
626C 
6200 
628C 


AS GE 
8D 4C E8 


60 


AS OC 
3D 4C ES 
68 


CASEUP 


LINE 


; WARNING - IF “EPTLEN’ ADDRESS IS > THAN $61FF 


THEN ADJUST THE FOLLOWING LIBRARY START ADDRESS 


; JE I ER 
i : START LIBRARY ON # 
3 * 


*=$6208 
3; * * 
> *® PAGE BOUNDARY * 
J Jessa aS AR 
; 2 
i 
3 # LIBRARY * 
3 * 
i* RGUTINES * 
ae * 
3 * START * 
;* * 
; HE RUE * 
i * * 
J TERI I IAAI ARR Aa 
; rk aia ea 
3 * 
é *CASELO® 
; * * 
; SEE 
LDA #LOWER 
STA CASE 
RTS 
3 HS 
3 * * 
3 *CASEUP *® 
; * * 
; EI 
LDA #UPPER 
STA CASE 
RTS 


EO IEE 
* * 


*MNCHNGE* 
* & * 
*BLOCKT* 
* * 
SPE 


MCHNGE IS USED TO SWAP TWO MEMORY AREAS. 
3 CALLED VIA° SYSTEM. “NCHNGE",.S1,S2,N 


THE LIBRARY......PAGE 8607 
CODE 


LINE# 


8253 
8254 
8255 
9256 
8257 
9253 
9259 
8268 
8261 
8262 
8263 
9264 
6265 
8266 


Loc 


ec 
67 


62 
62 


62 


62 


62 


LINE 


3 WHERE Si AND S2 ARE THE START ADDRESSES OF THE TWO 
} AREAS TO BE SWAPPED, AND N IS THE BYTE COUNT. 


; BLOCK T: BLOCKT IS MEMORY BLOCK MOVE ROUTINE 


j CALLED VIA: SYSTEM, "BLOCKT",S1,52,N 


WHERE Si AND S2 CONTAIN THE "FROM" AND "TO" 
> ADDRESSES, AND N IS THE BYTE COUNT. 


XBFLAG . BYTE 1 + XCHNGE/BLOCKT CALL FLAG 
BLOCKT DEC XBFLAG + FLAG BLOCKT CALL 
XCHNGE SEI i ADD “GO FASTER’ STRIPES! 
JSR XCHARG + GET AREA 1 ADDRESS 
HA 3 AREA 1 ADDRESS TO STACK 
TYA ; 
PHA ; 
JSR XCHARG + GET AREA 2 ADDRESS 
PHA + AREA 2 ADDRESS TO STACK 
TYA i 
PHA é 
JSR XCHARG 3 BYTE COUNT ENDS UP IN WREG2 
PLA i RETRIEVE THE AREA 1 ADDRESS 
STR WREG1 i 
PLA i 
sda WREGi+1 i SAVE IN A WORKING REGISTER 
ene WREGO + SAME FO THE AREA 2 ADDRESS 
STA WREGO+1 3 
LDY #ZERO 3 INITIALISE AREA INDEX 
PHYO = LDA WREG2+1 + BYTE COUNT = 6 IF FINISHED 
BNE XCHG@ 3 BRANCH IF STILL MORE TO SWAP 
LDA WREG2 3 HAVE WE FINISHED FOR CERTAIN? 
BEQ XCHGX 3 IF YES, BRANCH TO EXIT 
XCHG@ LDA (WREG@)>.' + GET THE NEXT AREA 1 BYTE 
LDX XBFLAG 3 TEST XCHNGE OR BLOCKT CALL 
BEQ AREANY 3 IF BLOCKT THEN SKIP THE SWAP 
PHA i IF XCHNGE, STACK AREA 1 BYTE 
LDA (WREG1>.4 3 THEN GET THE AREA 2 BYTE 
STA (WREG@).Y 3 BECOMES THE NEW AREA 1 BYTE 
LA 3 POP THE OLD AREA 1 BYTE 


PI 
AREAMY STA (WREGI>.Y BECOMES THE NEW AREA 2 BYTE 


; NOW WE HAYE EITHER SWAPPED, 


OR BLOCK-TRANSFERRED, 
; A BYTE. 


i NEXT WE UPDATE THE MEMORY AREA POINTERS 

3 AND BYTE COUNT, AND PREPARE FOR THE NEXT BYTE, 
SEC i PREPARE FOR SUBTRACTION 
LDA WREG2 + GET THE BYTE COUNT 
SBC #1 + ONE LESS BYTE TO DO 
STA WREG2 + STORE RECOMPUTED BYTE COUNT 
LDA WREG2+1 + COMPLETE THE COMPUTATION 


ISI EP&D 


i a rw =i 


PET LOVERS 


INTRODUCE YOUR PETS TO OURS 
AND SOLVE YOUR INTERFACE PROBLEMS 


ANALOGUE/DIGITAL I/O 


THE PUPI 





4 ANALOGUE INPUTS (12BiT) 

2 ANALOGUE OUTPUTS (12 BIT) 
4 RELAY OUTPUTS 

4 LOGIC INPUTS 


+ eh F Ft 


When connected to the “PET” User 
Port the PUPI gives you all the above 
features together with an operating 
system in EPROM, which interacts 
with Basic’s variables, giving extremely simple 
operation. Inputs and outputs are +10V and relays 
are rated at 10VA. Logic inputs can be used for 
microswitch sensing etc. 





HIGH SPEED A/D CONVERTER 


THE PUSS! 


Wrong * 4 ANALOGUE INPUTS (12 BIT) 
4 Q ®& S t, * 50 MICROSECOND CONVERSION 
\ SHS, \ * STOP AND START TRIGGERS 


| * DATA ACQUISITION SOFTWARE 


Using an_ operating system in 

EPROM, the PUSSI provides a high 
| | fy speed A-D Converter with 4 
on ca toed multiplexed inputs, which is under 
control of either software, or remote start/stop 
triggers. A-D Conversion can be carried out from 
Basic, or Machine Code, with up to 1500 readings 
Only £195.00 entered directly into memory at a_ software 

determined rate. 


CIL MICROSYSTEMS LTD. 
DECOY RD., 
WORTHING, 

SUSSEX BN14 8ND. 


TELEX: 87515 WISCO G ATTMIC 
TEL: (0903) 210474 





Write, phone or to 
obtain further information circle number 





MICROSYSTEMS LTD 
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Machine Code 
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LINEW LOC CODE LINE 

e388 624E £9 00 SBC #ZERO 
@309 6250 85 12 STA WREG2+1 
@310 6252 £6 SE INC WREGO 

@311 6254 Do a2 BNE XCHG1 

@312 6256 E6 SF INC WREGO+1 
@313 6258 £6 60 XCHG1 INC WREG1 

@314 625A Da D2 BNE XCHG 

@315 625C E6 61 INC WREG1+1 
@316 625E De CE BNE XCHG 

@317 6260 : 

318 6260 ; 

8319 6260 ; 

8320 6260 i THE XCHNGE/BLOCKT FLAG. 
8321 6260 ; 

9322 6260 58 XCHGX CLI 

@323 6261 AS O1 LDA #1 

8324 6263 8D aC 62 STA XBFLAG 
9325 6266 60 RTS 

326 6267 i 

e327 6267 : 

8328 6267 : 

0329 6267 j 

@330 6267 20 F5 BE  XCHARG JSR NXTFLD 
331 626A 20 98 BD JSR EVALUS 
9332 626D 20.20 C9 JSR FIXPNT 
0333 6270 60 RTS 

0334 6271 : 

0335 6271 : Jes anton 
0336 6271 : * * 
9337 6271 : HREADER® 
0338 6271 5 Bs) i * 
@339 6271 : HWRITER® 
8340 6271 ; * . 
341 6271 ; JARRE 
@342 6271 : 

0343 6271 : 

@344 6271 a 

a345 6271 : 

@346 6271 ; 

0347 6271 : 

8348 6271 d 

8349 6271 : 

e350 6271 s 

0351 6271 on 

@352 6271 ; 

@353 6271 f 

@354 6271 ; 

@355 6271 é 

@356 6271 3 AREA TO BE SAVED 
@357 6271 : 

@358 6271 2092 62 READER JSR SETFIL 
8359 6274 20 56 F3 JSR PRGLOD 
8360 6277 EA NOP 

@361 6278 68 RTS 

@362 6279 . 

THE LIBRARY...+..PAGE 2009 

LINEW LOC CODE LINE 

@363 6279 209262 WRITER JSR SETFIL 

a364 627C AS 08 LDA #DISK 

@365 627E 985 D4 STA DEVICE 
Q366 6280 20 67 62 JSR XCHARG 

@367 6283 84 FB STY START 

@368 6285 85 FC STA START+ 
0369 6287 28 67 62 JSR XCHARG 
0370 628A 84 C9 STY END 

@371 628C 985 CA STA END+1 

@372 628E 20 E3 FE JSR PROSAY 
a373 6291 68 RTS 

@374 6292 ’ 

8375 6292 i THE FOLLOWING ROUTINE I 
a376 6292 ; 

8377 6292 j 

0378 6292 i SAVE OR LORD COMMAND. 
8379 6292 i 

@380 6292 20 F5 BE SETFIL JSR NXTFLD 

0381 6295 20 98 BD JSR EVALUS 

0382 6298 20 Be C7 JSR STRING 
0383 6298 85 Di STA FNMLEN 
0384 6290 AR TAX 

0385 629E Ae OB LDY #ZERO 

385 62A0 984 96 STY STATUS 
387 62A2 84 9D STY LODVFY 
388 62A4 AS 07 LDR #FNADHI 
@389 62A6 85 DA STA FILNOM 
@399 62Ae AI O2 LDR 0 
@391 62AA 85 DB STA FILNOM+1 
@392 62AC Bi IF XFRFNM LDR <VARPTR). 
@333 62AE 91 DA $TA <FILNOM),¥ 
0394 62B0 C8 INV 

0395 62B1 CA DEX 

9396 62B2 De FS BNE XFRFNM 
6337 6284 60 RTS 

8398 62B5 ; 

8399 62B5 3 Jeep eR 
2400 6285 ; * * 
8401 6255 : *#DIRECT® 
0402 6285 : * . 
6403 6285 : SPOR OIE 
0404 6285 : 

8485 6285 j 

8406 6285 jo nope ena na a= 

0407 62B5 i 

6408 62B5 -—-—--- 

0489 6285 i 

Q418 6285 j 

8411 62B5 3 VARTABLE 

412 6285 3 

0413 62B5 20 FS BE DIRECT JSR NXTFLD 

0414 6288 26 98 BD JSR EVALUS 
0415 62BB 20 Bs C7 JSR STRING 
0416 62BE AR TAX 

0417 62BF AS 00 LDA #BIADLO 
THE LIBRARY......PAGE 0010 

LINE# LOC CODE LINE 

0418 62C1 85 SE STA WREGO 

@419 62C3 AD O2 LDA #BIADHI 
0420 6205 85 SF STA WREGO+1 
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3 
j 
; 
; 
; 
3 


; BUMP AREA 1 ADDRESS BY 1 


+ CATER FOR CARRY 

} BUMP ARER 2 ADDRESS BY 1 

+ GO AND HANDLE ANOTHER BYTE 

+ OR HANDLE CARRY 

} AND THEN GO FOR THE NEXT BYTE 


+ AT THIS POINT ALL BYTES HAVE BEEN PROCESSED. ALL THAT 


Commodore Computing 


; REMAINS TO BE DONE IS TO ALLOW INTERRUPTS, AND RESET 


3 OFF WITH GO-FASTER STRIPES 
4 ASSUME XCHNGE CALL COMING 

4 AND PRIME THE FLAG BYTE 
3 RETURN TO USER 


} THE FOLLOWING ROUTINE IS USED BY XCHNGE, BLOCKT, 
* AND WRITER TO EVALUATE “SYSTEM” CALL PARAMETERS. 


+ SCAN FOR NEXT ARGUMENT 
+ EVALUATE THE EXPRESSION 
+ CONVERT TO INTEGER VALUE 


+READE R: READER PROVIDES DISK TO MEMORY TRANSFERS. 


CALLED VIA: SYSTEM, "READER", "FILENAME" 


) WHERE FILBNAME IS IN STANDARD DOS FORMAT 
; WRIT ER: WRITER PROVIDES MEMORY TO DISK TRANSFERS 


CALLED VIA: SYSTEM. "WRITER". "FILENAME", S.E 


WHERE FILENAME IS IN STANDARD DOS FORMAT, S IS THE 
i START ADDRESS, AND E IS THE END ADDRESS OF THE 


SET UP FILENAME FOR I/O 
PERFORM ‘LOAD’ 

POINT TO CHECH I/O STATUS 
RETURN TO USER 


3 SET 
+ GET 
; AND 
s GET 
AND 


UP FILENAME FOR I/O 
THE DEVICE CODE 
TELL OS WHAT IT IS 
THE START ADDRESS 
TELL OS WHERE IT IS 


GET THE END ADDRESS 
AND TELL OS WHERE IT IS 


PERFORM “SAVE 
RETURN TO USER 


BY READER AND ee 


$ USED B' 
; TO ESTABLISH THE USER-PROVIDED FILENAME IN TI 
i; MACHINE-LANGUAGE-MONITOR AREA AND PREPARE FOR A 


SCAN FOR FILENAME 
EVALUATE CHARACTER STRING 
SET UP STRING POINTER 
SAVE LENGTH FOR MLM 

USE LENGTH AS LOOP CONTROL 
INITIALISE 

1/0 STATUS 

FLAG FOR “LOAD 

SET UP POINTERS... 

FOR ADDRESSING... 

THE FILE NAME 


BUMP POINTER TO NEXT CHAR 
ONE LESS CHAR TO DO 

LOOP FOR REST OF NAME 
RETURN 


+ DIREC T: DIRECT ALLOWS EXECUTION OF BASIC DIRECT 
MODE STATEMENTS. 


CALLED ¥EA: SYSTEM, "DIRECT". E 


i WHERE E IS A STRING, ENCLOSED IN QOUTES, OR A STRING 
CONTAINING THE DIRECT-MODE STATEMENT. 


3 SCAN FOR STATEMENT 

+ EVALUATE CHARACTER STRING 
3 SET UP STRING POINTERS 

3 SAVE LENGTH FOR LOOP 

+ BASIC INPUT BUFFER ADDR 


i SAVE IN WORKING REGISTER 





6207 AG BO 
62C9 Bi iF 
SE 


ERRORS = 6800 


SYMBOL TABLE 
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LINE®# LOC CODE 


62F2 68 
85 


END OF ASSEMBLY. 


LDY #ZERO + INITIALISE ug POINTER 
BDIRi LDA CVARPTR).Y + GET NEXT STRING CHAR 
STA <WREG@>,Y + INTO BASIC INPUT BUFFER 
INY + BUMP TO NEXT CHARACTER 
DEX i ONE LESS TO DO 
BNE DIRi + LOOP FOR ALL CHARACTERS 
Sk IMGPTR + SAVE BASIC SCAN POINTER 
LDA IMGPTR+1 ; 
PHA + ONTO THE STACK 
TYR + BASIC INPUT BUFFER PTR 
TAX s INTO X REGISTER 
BA JSR FLGEND INSERT END MARKER 
+ SET UP X AND Y REGISTERS 
+ TO POINT AT DIRECT IMAGE. 
STX INGPTR + SET UP CHARGET POINTERS 
STY INGPTR+1 ; 
0 JSR SCAN + SCAN THE IMAGE 
B4 JSR TOKENS i CONVERT KEYWORDS TO TOKENS 
i) SCANIT JSR SCAN 3 RE-SCAN 
37 JSR XECUTE + ¥QT_THE BASIC STATEMENT 
LDY #ZERO + INITIALISE IMAGE PTR 
LDA CIMGPTR),Y + GET NEXT CHAR FROM IMAGE 
BNE MULTIS + BRANCH IF IT MIGHT BE COLON 
PLA + ELSE RESTORE 
STA IMGPTR+1 + BASIC IMAGE POINTER 
PLA ; 
STR IMGPTR i 
RTS + RETURN TO THE USER 
MULTIS CMP #COLON + IS IT A COLON 
BEQ SCANIT 4 IF SO PROCESS NEXT PART 
BF JMP ERRMSG + IF NOT, GIVE HIM THE BOOMER 
«END 
BIADHI 6062 BIADLO 0000 BLOCKT 626D 
CASELO 6200 CASEUP 6206 COLON 893A 
DIRi 6209 DIRECT 62B5 DISK 9063 
ENTLEN 98888 ENTPNT 8868 EPTAB 6042 
BFOO EVALU8 BD9S FILNOM  6@DA 
FLGEND BAD2 FNADHI 0007 FNADLO 9062 
IMGPTR 8877 LODVFY  e@9B LOWER QQ0E 
NAMSIZ 8886 NXTCHR 601A NATENT 602D 
PRGLOD F356 PRGSAY F6E3 READER 6271 
LINE 
STA cl] i 
LDA #BIADHI i 
STA WREGO+1 i SAVE IN WORKING REGISTER 
LDY #ZERO + INITIALISE BUFFER POINTER 
DIRi LDA CVARPTR).Y 3 GET NEXT STRING CHAR 
STA (WREG@>,Y 4 INTO BASIC INPUT BUFFER 
INY i BUMP TO NEXT CHARACTER 
DEX + ONE LESS TO DO 
BNE DIRi 3 LOOP FOR ALL CHARACTERS 
rene IMGPTR 3 SAVE BASIC SCAN POINTER 
LDA IMGPTR+1 i 
PHA + ONTO THE STACK 
TYR s BASIC INPUT BUFFER PTR 
TAX + INTO % REGISTER 
BA JSR FLGEND i INSERT END MARKER 
+ SET UP X AND REGISTERS 
i TO er AT DIRECT IMAGE. 
STX I + SET UP CHARGET POINTERS 
sTY IMGPTR+t ; 
3] JSR SCAN + SCAN THE IMAGE 
B4 JSR TOKENS + CONVERT KEYWORDS TO TOKENS 
06 SCANIT JSR SCAN 3 RE-SCAN 
87 JSR XECUTE + XQT_THE BASIC STATEMENT 
LDY #ZERO 3 INITIALISE IMAGE PTR 
LDA CIMGPTR>.Y + GET NEXT CHAR FROM IMAGE 
BNE MULTIS + BRANCH IF IT MIGHT BE COLON 
PLA + ELSE RESTORE 
STA IMGPTR+1 + BASIC IMAGE POINTER 
PLA ; 
STA IMGPTR ; 
RTS + RETURN TO THE USER 
MULTIS CMP #COLON s IS IT A COLON 
BEQ SCANIT + IF SO PROCESS NEXT PART 
BF JMP ERRMSG 3 IF NOT, GIVE HIM THE BOOMER 
«END 
BIADHI 6002 BIADLO 9000 BLOCKT 620D 
CASELO 6208 CRSEUP 6206 COLON 883A 
DIR1 62C9 DIRECT 62B5 DISK 9008 
ENTLEN 9008 ENTPNT 9800 EPTAB 6042 
BFS EVALUS8 BD9S FILNOM  @@DA 
FLGEND BAD2 FNADHI 8807 FNADLO 9062 
IMGPTR 8077 LODVFY  @@9D LOWER @G0E 
NAMSIZ 6606 NXTCHR 681A NXTENT  602D 
PRGLOD F356 PRGSAY F6E3 READER 6271 
SCANIT  62E6 SETFIL 6292 START OOFB 
STRING C7B8 SUBNAM  @@1F SYSTEM 6000 
TOKENS B4FB UPPER VARPTR @@1F 
WREG1 e060 WREG2 0011 WRITER 6279 
XCHARG 6267 CHG 622E XCHGO 6236 
XCHGX 6260 XCHNGE 6210 XECUTE B785 
ZERO 90008 


Guest Expert 


00180 7eb2 
00181 7eb2 
00182 7eb2 


00183 7eb2 FRR HHRHHHAHS KKK AHHH SHAK HSK KKK SHH KHKEKS 
00184 7eb2 5 REEF Jump to syntax error routine EERE 
00185 7eb2 pF RKKKASASSKKK KKK HHL KKKSKSK KKK KK RKKHKKKSS 
00186 7eb2 ; 

00187 7et2 20 24 Pe err jsr getcod 

00188 7ebS 4c 00 bF jap synerr 

00189 7ebe ; 

00190 7ebs pREFKARRAAARAAKAKAALAAAAAARKAARA HAHA RAAF 
00191 7ebs 7 REKE check basic Line for comma HREE 
00192 7ebs FRX HHH AHKAKAKKHEAS SSSA KKH KAKA RHR KK RSH HKKK SS 
00193 7ebs ; 

00194 7ebS af 2c chkcom lda #44 

00195 7eba 20 00 ldy #0 

00196 7ebc di 77 cop (txtptr),y 

00197) 7ebe ; 

90198 7ebe dO f2 tne err 

00199 7ecd 7 

00200 7ecO 4c 70 00 jmp chrget 

00201 7ec3 3 

00202 7ec3 7 RR FSRHKHKHKH LEK SSHHKSSSKSKK KKK KKK KE 
00203 7ec3 pF#e% conv 2 digit ascii number to hex #### 
00204 7ec3 3*#*** store result in temp REKH 
00205 7ec3 5 EXE EKFE LEAKE FF EHH ESE KF EK KHEKR KER KEE 
00206 7ec3 ; 

00207 7ec3 38 aschex sec 

00208 7ec4 #9 30 stc #48 

00209 7ecé& Sd FS 7e ste temp 

00210 7ec? 20 70 00 jsr chrget 

00211 7ecc 90 07 tcc ascli 

00212 7ece ; 

00213 7ece cP? 2c cmp 444 

00214 7edO f0O 2 beq ascend 

90215 7ed2 4c b2 7e jap err 

00216 7edS ; 

00217 7edS 38 asci sec 

00218 7edé e©9 30 stc #48 

00219 7ed& 48 pha 

00220 7ed9? a9 00 lda #0 

90221 7edb ee FS 7e ldx temp 

90222 7ede 18 asc2 ele 

90223 7edf 69 Oa adc #10 

00224 7eel ca dex 

600225 7ee2 dO fa tne asc2 

00226 7ee4 Od FS 7e sta temp 

00227 Vee? 68 cla 

00228 7ee® 18 cle 

0022 Jee? 64d FS Ze adc temp 

00230 7eec Sd FS 7e sta temo 

00231 ZVeef 20 70 00 isr chrget 

09232 7ef2 ; 

00233 7ef2 60 ascend rts 

00234 7ef3 5 


00235 7ef3 
00236 7ef3 


FRE RRKREKSKEFSKFKRKKKRRKSKKRSK KKK RRR A A RKE HS 


storage 





Brees KRREF 





00237 PefS FREES LFRRRELKSRK HAHA RS KK KKH SS 
00238 7ef3 

00239 7ef3 00 ycoord .tyte 0 

00240 7ef4 00 xcoord .byte 0 

00241 7#fS 00 Lem sbute 0 

00242 7efb 00 store tute 0.0 

00242 7ef7 00 

00243 7ef® ; 








jrestore chraet code 
sprint syntex error 


3 44 = ascii ",” 


;compere to current 
basic char 
sif not. = "," 
print syntex erro 
sget next char 


;set cerry for sub 
sist digit to hex 
;store it in temp 
sget second digit 
;qa0to to asci if 

btwn 0-9 
is it.= ats oe 

yes, done 

no, syntex error 


re 


set carry for sut 
2nd digit to hex 
seve 2nd digit 


ee 


sfind tens ty mult 


set -~ 10 

estore tens in temp 
eget 2nd digit 

+ end edd to temp 
+ Save it in temp 
; get next char 
done 


sline coordinate 
scolumn coordinate 
swork ares 
sstorage for code 
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PAMPER YOUR 
PET WITH 





FREE 
PET/CBM 


COMA@AL 


“The excitement in Europe (over COMAL) 
seems to be growing by the hour and we look 
forward to America being able to share in the 
good fortune of having an easy-to-use, struc- 
tured, planning language at last.” 










“‘no programming experience necessary” 


Write your data base applications in 
minutes instead of days. Dynatech 
Microsoftware introduce to PET owners 
the CODEWRITER, a superb program 
generator for the 8000 series Pet with 
8050 disk drive unit. 

Screen layout, data entry validation, 
screen display of user-defined error 
messages, screen calculations, searching 
by any field - all are child’s play to 
Codewriter Disk 1. Codewriter Disk 2 
provides printed reports and menu 
generators. 







































The power of PASCAL and the ease of BASIC 
can now be yours with Commodore COMAL, a 
new programming language from DENMARK. It 
is being distributed in the USA by the COMAL 
USERS GROUP. To find out more about COMAL 
and how you can get a free disk copy of Com- 
modore COMAL, send a large self-addressed 
stamped (35 cents) envelope to: 


A selection of the applications of 
Codewriter already in use are listed 
below; 

Data entry storage and retrieval of; 
(a) personnel records 

(b) product information 

(c) rental records 

(d) customer data 

Stock control systems 

Letter/word information 

Hotel reservations systems 

Fixed assets and depreciation schedules 
Projects records and control systems 
Mailing and labelling systems 































COMAL USERS GROUP 
5501 GROVELAND TER., MADISON, WI 53716. 
Outside USA please add $2.00 for airmal and handling. 
*PET & CBM are trademarks of Commodore Business Machines. 


Turnkey training courses are always 
available at various Centres throughout 
the U.K., or take a holiday course in 
the charming island of Guernsey. 

For full details on courses and inform- 


é 3 A ; ADVERTISER’S INDEX 
ation on Codewriter, write or ‘phone 







BP sdseacacdsiezivens Alpha Business Systems 

Se teak vcasainge. ¢ Audiogenic 

WS haste Risa ste Capitol Computers 

Mc xeatnacwccere sit: CUBS: 

OF etic ais CAL: 

DOA. cotavecedsexsvers Comal Users Group 

5 egy er oe Computer Services Midlands 
= re WET sinetiah wing sitdansat Corrtronic 
DYNATECH MICROSOFT WARE ITD - A ty NY Sake iteihd 
SUMMERFIELD HOUSE, VALE, 33 Datatech 
GUERNSEY, CHANNEL ISLAND. 15 Dealer Directory 
Tel. 0481 47377 Telex 4191130 54 Dynatech 
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26).; ..Kingsley Computers 

16 Landsoft 

11 Level Ltd. 

26 Mass Micros 

45 M.M.S. 

5 Peach Data Services 
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55 Rabbit Software 
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56 Stack Computer Services 
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{i SA ee Typecraft Systems 

DA af eisabageenion ea Wego Computers 


54 Commodore Computing 























RABBIT SOFTWARE x: 


\ a | 
FROGGER 


380 STATION ROAD, 





Bring the famous pub game home. First cross 
ma ae the motorway without getting run over and 
; then home across logs and turtles. But beware 
Tel: 01-863-0833 of snakes crocodiles and submerging turtles. 


Incredible multi-colour mode graphics written 
RABBIT B ASE. in machine code. 


Your own personal Database Management System 
for your VIC-20. Ideal for any storage and retrieval 
of any type of record. Powerful search, sort and 
calculation features. 












RETAIL PRICE £9.99 





RETAIL PRICE £14.99 


RABBIT WRITER SPACE STORM 


; Amazing 3D Graphics of the popular asteroid 
The wordprocessor for your VIC-20. This program game. Sonat ae for nh og ose of Rabbits 
requires 16K RAM Expansion. ‘Rabbit Writer’ enables best-selling games. * 
the rapid and easy creation of text and its printing to ’ 
the printer. ‘Rabbit Writer’ has powerful editing and © fey 
right hand justification and has many other Word- : 
processing features via the appropriate function keys 
such as indenting, centering, etc. and enables expanded 
characters to be printed. It also has the facility to merge 
i.e. names and addresses from Rabbit Base. 















RETAIL PRICE £19.99 







Super Worm £4.99 Rabbit Functions £4.99 Cosmic Battle £4.99 
Night Flight £4.99 Ski—Run £4.99 Rabbit Chase £4.99 
Charpet 20 £4.99 Dune Buggy £4.99 Code Breaker £4.99 









Available from Vic Dealers or Direct from: hn ee ee ee ee 





a ee q sa ete for 

380 Station Road, cometh it 

Harrow, Middlesex HAl 2DE. 44 t sednedae ney Sere ——- 
Telephone: 01-863 0833 J Name — 

Credit Cards Accepted. Address 





== Code 
Dealers discount available 


A ACCESS, BARCLAYCARD ORDERS WELCOME 
Mail to: RABBIT SOFTWARE oT ee 
RABBIT SOFTWARE 9 380 sTATION ROAD, HARROW, FN VISA 
———_——_—_———— MIDDX. HAI 2DE. Cera 
= Sse ee ee ee es ee ee ee ee ee oe 


——— ee oe 


STACK STOREBOARD 
(memory expansion unit) 


Power up your VIC-20 to 
a MASSIVE 32k 
COMPUTER!! 


ony £49.00 


(plus VAT) for 3k 
and expandable to 27k on the same board 


STACK 8k RAMPACK 


Use this upgrade pack to increase memory size on 


Stack Storeboard by 8k a time 
NEW LOWER PRICE!! only £29.00 
(plus VAT) 


ar \e1 @e)''Zerel-a5 
RS232 INTERFACE 


Allows you to use a serial 
printer with your VIC-20 


£22.99 


(plus VAT) 


STACK LOW COST 3k 
MEMORY 


The tie costs mg memory addition 
gives you 6' 2k of user memory on 
your Vie 20 Also allows you to use 
those quality games which demand 
3k of Hi-Res Graphics! Socket at rear 
allows you to stack up further 
accessories 


sy £25.99 
STACK LIGHTPEN 


Allows you to use VIC-20 
without keyboard entry by 

simple programming. Sensor in 

pen sees the TV screen! Ideal 

for education. games. menu 
selection etc 


only £20.00 


(plus VAT) 


ill 


STACK ROM 
SWITCHBOARD 


Use up to 4 ROMs at 
once! eg. games. 
ROMs. VICKIT. 
VICKIT Il etc 


New Lower Price!! £29.00 


(plus VAT) 


STACK 4-SLOT 
MOTHERBOARD 


Fits into the port at the rear of the Stack Storeboard or the Stack Low Cost 3k 
Memory and enables you to use up to 4 cartridges in addition to the extra 
memory on the Storeboard or 3k Memory. Each slot can be switched in or 
out, thus allowing the use of 

one. all four, or any combination 

of cartridges without having to 

remove them 


By ..£24.99 


(plus VAT) 


STACK VICKIT SERIES 


A series of ROMs which greatly simplifies programming and 
enhance the qualities of your VIC-20. Fits into Stack ROM 
SWITCHBOARD or Stack STOREBOARD. 


VICKIT 


Offers HELP to programmers....it also offers AUTO. DELETE 


DUMP. FIND. OFF. RENUMBER. STEP. TRACE 
£25.00 


(plus VAT) 
Special Offer Price if Purchased 
with STOREBOARD only 


VICKIT Il 


A 4k ROM offering ALL THE FEATURES OF VICKIT plus..... TEXT 
GRAPHICS. LINE. CLEAR. DRAW. PUT 0 
FILL. SET. POINT only 0 


(plus VAT) 


(plus VAT) 


Other exciting additions to the 
VICKIT series due soon! 





